1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3subroutine s1() 4 character(10) str 5 character(10) str1 6 !ERROR: Cannot reference function 'str' as data 7 print *, str(1:9), str(7) 8 block 9 character(10) str2 10 character(10) str3 11 !ERROR: Cannot reference function 'str1' as data 12 print *, str1(1:9), str1(7) 13 !ERROR: 'str2' is not an array 14 print *, str2(1:9), str2(7) 15 !ERROR: Cannot reference function 'str3' as data 16 print *, str3(7), str3(1:9) 17 end block 18end subroutine s1 19 20subroutine s2() 21 character(10) func 22 !ERROR: Cannot reference function 'func' as data 23 print *, func(7), func(1:9) 24end subroutine s2 25 26subroutine s3() 27 real(8) :: func 28 !ERROR: Cannot reference function 'func' as data 29 print *, func(7), func(1:6) 30end subroutine s3 31 32subroutine s4() 33 real(8) :: local 34 real(8) :: local1 35 !ERROR: Cannot reference function 'local' as data 36 print *, local(1:6), local(7) 37 !ERROR: Cannot reference function 'local1' as data 38 print *, local1(7), local1(1:6) 39end subroutine s4 40 41subroutine s5(arg) 42 integer :: iVar 43 external :: arg 44 iVar = loc(arg) 45end subroutine s5 46