[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / getdefinition03-a.f90
blobdd9d4cd9d8a681022c0b2cf8e740d54da9e3b89e
1 ! Tests -fget-definition with INCLUDE
2 INCLUDE "Inputs/getdefinition03-b.f90"
4 program main
5 use m3
6 integer :: x
7 x = f
8 end program
10 ! RUN: %flang_fc1 -fget-definition 7 6 7 %s | FileCheck --check-prefix=CHECK1 %s
11 ! RUN: %flang_fc1 -fget-definition 7 2 3 %s | FileCheck --check-prefix=CHECK2 %s
12 ! CHECK1: f:{{.*}}getdefinition03-b.f90, 2, 12-13
13 ! CHECK2: x:{{.*}}getdefinition03-a.f90, 6, 13-14