24 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Old-style "*length" specifiers (R723)3 4!DEF: /f1 (Function) Subprogram CHARACTER(1_8,1)5!DEF: /f1/x1 INTENT(IN) ObjectEntity CHARACTER(2_4,1)6!DEF: /f1/x2 INTENT(IN) ObjectEntity CHARACTER(3_4,1)7character*1 function f1(x1, x2)8 !DEF: /f1/n PARAMETER ObjectEntity INTEGER(4)9 integer, parameter :: n = 210 !REF: /f1/n11 !REF: /f1/x112 !REF: /f1/x213 !DEF: /f1/len INTRINSIC, PURE (Function) ProcEntity14 character*(n), intent(in) :: x1, x2*(len(x1)+1)15 !DEF: /f1/t DerivedType16 type :: t17 !REF: /f1/len18 !REF: /f1/x219 !DEF: /f1/t/c1 ObjectEntity CHARACTER(4_4,1)20 !DEF: /f1/t/c2 ObjectEntity CHARACTER(6_8,1)21 character*(len(x2)+1) :: c1, c2*622 end type t23end function f124