1! RUN: %python %S/test_symbols.py %s %flang_fc1 2! 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 = 2 10 !REF: /f1/n 11 !REF: /f1/x1 12 !REF: /f1/x2 13 !DEF: /f1/len INTRINSIC, PURE (Function) ProcEntity 14 character*(n), intent(in) :: x1, x2*(len(x1)+1) 15 !DEF: /f1/t DerivedType 16 type :: t 17 !REF: /f1/len 18 !REF: /f1/x2 19 !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*6 22 end type t 23end function f1 24