1 ! Test runtime warnings using non-standard $ editing - PR20006.
3 ! Contributor Francois-Xavier Coudert <coudert@clipper.ens.fr>
5 ! { dg-options "-pedantic" }
9 open (42,status
='scratch')
10 write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }
15 if (c
/= 'abcde') call abort ()
17 ! { dg-warning ".*descriptor" "" 10}