flang/test/Semantics/symbol18.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2
   3 ! Intrinsic function in type declaration statement: type is ignored
   4
   5 !DEF: /p1 MainProgram
   6 program p1
   7  !DEF: /p1/cos ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity INTEGER(4)
   8  integer cos
   9  !DEF: /p1/y (Implicit) ObjectEntity REAL(4)
  10  !REF: /p1/cos
  11  !DEF: /p1/x (Implicit) ObjectEntity REAL(4)
  12  y = cos(x)
  13  !REF: /p1/y
  14  !DEF: /p1/sin ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
  15  !REF: /p1/x
  16  y = sin(x)
  17  !REF: /p1/y
  18  !DEF: /f EXTERNAL (Function, Implicit) ProcEntity REAL(4)
  19  !REF: /p1/x
  20  y = f(x)
  21 end program
  22
  23 !DEF: /f2 (Function) Subprogram REAL(4)
  24 !DEF: /f2/cos EXTERNAL (Function, Implicit) ProcEntity REAL(4)
  25 !DEF: /f2/x (Implicit) ObjectEntity REAL(4)
  26 function f2(cos, x)
  27  !DEF: /f2/f2 (Implicit) ObjectEntity REAL(4)
  28  !REF: /f2/cos
  29  !REF: /f2/x
  30  f2 = cos(x)
  31 end function