2 ! Tests the patch for PR28890, in which a reference to a legal reference
3 ! to an assumed character length function, passed as a dummy, would
6 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
8 character(*) function charrext (n
) ! { dg-warning "is obsolescent in fortran 95" }
9 character(26) :: alpha
="abcdefghijklmnopqrstuvwxyz"
10 charrext
= alpha (1:n
)
13 character(26), external :: charrext
15 integer(4) function test(charr
, i
)
16 character(*), external :: charr
22 m
= test (charrext
, j
)
23 m
= ctest (charrext
, 27 - j
)
26 integer(4) function ctest(charr
, i
) ! { dg-warning "is obsolescent in fortran 95" }
34 integer(4) function test(charr
, i
) ! { dg-warning "is obsolescent in fortran 95" }