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 6program 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) 21end 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) 26function f2(cos, x) 27 !DEF: /f2/f2 (Implicit) ObjectEntity REAL(4) 28 !REF: /f2/cos 29 !REF: /f2/x 30 f2 = cos(x) 31end function 32