flang/test/Semantics/symbol07.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2 !DEF: /main MainProgram
   3 program main
   4  implicit complex(z)
   5  !DEF: /main/t DerivedType
   6  type :: t
   7   !DEF: /main/t/re ObjectEntity REAL(4)
   8   real :: re
   9   !DEF: /main/t/im ObjectEntity REAL(4)
  10   real :: im
  11  end type
  12  !DEF: /main/z1 ObjectEntity COMPLEX(4)
  13  complex z1
  14  !REF: /main/t
  15  !DEF: /main/w ObjectEntity TYPE(t)
  16  type(t) :: w
  17  !DEF: /main/x ObjectEntity REAL(4)
  18  !DEF: /main/y ObjectEntity REAL(4)
  19  real x, y
  20  !REF: /main/x
  21  !REF: /main/z1
  22  x = z1%re
  23  !REF: /main/y
  24  !REF: /main/z1
  25  y = z1%im
  26  !DEF: /main/z2 (Implicit) ObjectEntity COMPLEX(4)
  27  !REF: /main/x
  28  z2%re = x
  29  !REF: /main/z2
  30  !REF: /main/y
  31  z2%im = y
  32  !REF: /main/x
  33  !REF: /main/w
  34  !REF: /main/t/re
  35  x = w%re
  36  !REF: /main/y
  37  !REF: /main/w
  38  !REF: /main/t/im
  39  y = w%im
  40 end program