32 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12 3! Intrinsic function in type declaration statement: type is ignored4 5!DEF: /P1 MainProgram6program P17 !DEF: /P1/cos ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity INTEGER(4)8 integer cos9 !DEF: /P1/y (Implicit) ObjectEntity REAL(4)10 !REF: /P1/cos11 !DEF: /P1/x (Implicit) ObjectEntity REAL(4)12 y = cos(x)13 !REF: /P1/y14 !DEF: /P1/sin ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity15 !REF: /P1/x16 y = sin(x)17 !REF: /P1/y18 !DEF: /f EXTERNAL (Function, Implicit) ProcEntity REAL(4)19 !REF: /P1/x20 y = f(x)21end program22 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)26function f2(cos, x)27 !DEF: /f2/f2 (Implicit) ObjectEntity REAL(4)28 !REF: /f2/cos29 !REF: /f2/x30 f2 = cos(x)31end function32