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 "Obsolescent feature" }
9 character(26) :: alpha ="abcdefghijklmnopqrstuvwxyz"
10 charrext = alpha (1:n)
13 character(26), external :: charrext
15 integer(4) function test(charr, i) ! { dg-warning "Obsolescent feature" }
16 character(*), external :: charr
22 m = test (charrext, j)
23 m = ctest (charrext, 27 - j)
26 integer(4) function ctest(charr, i) ! { dg-warning "Obsolescent feature" }
34 integer(4) function test(charr, i) ! { dg-warning "Obsolescent feature" }