flang/test/Semantics/symbol07.f90

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