flang/test/Semantics/struct02.f90

   1 ! Test component name resolution with nested legacy DEC structures.
   2 !RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s
   3
   4   structure /a/
   5     integer :: a_first_comp
   6     structure /b/ b1, b2(100)
   7       integer :: i
   8     end structure
   9     structure /c/ z
  10       integer :: i
  11       structure /d/ d1, d2(10)
  12         real :: x
  13       end structure
  14     end structure
  15     integer :: a_last_comp
  16   end structure
  17 end
  18 ! CHECK:    /a/: DerivedType sequence components: a_first_comp,b1,b2,z,a_last_comp
  19 ! CHECK:    /b/: DerivedType sequence components: i
  20 ! CHECK:    /c/: DerivedType sequence components: i,d1,d2
  21 ! CHECK:    /d/: DerivedType sequence components: x