|
111
|
1 ! { dg-do compile }
|
|
|
2 ! { dg-options "" }
|
|
|
3 ! [option to disable -pedantic as assumed character length
|
|
|
4 ! functions are obsolescent]
|
|
|
5 !
|
|
|
6 ! PR fortran/41235
|
|
|
7 !
|
|
|
8
|
|
|
9 character(len=*) function func()
|
|
|
10 func = 'ABC'
|
|
|
11 end function func
|
|
|
12
|
|
|
13 subroutine test(i)
|
|
|
14 integer :: i
|
|
|
15 character(len=i), external :: func
|
|
|
16 print *, func()
|
|
|
17 end subroutine test
|
|
|
18
|
|
|
19 subroutine test2(i)
|
|
|
20 integer :: i
|
|
|
21 character(len=i) :: func
|
|
|
22 print *, func()
|
|
|
23 end subroutine test2
|
|
|
24
|
|
|
25 call test(2)
|
|
|
26 call test2(2)
|
|
|
27 end
|
