1! Test runtime warnings using non-standard $ editing - PR20006. 2! 3! Contributor Francois-Xavier Coudert <coudert@clipper.ens.fr> 4! 5! { dg-options "-pedantic" } 6! { dg-do run } 7! 8 character(5) c 9 open (42,status='scratch') 10 write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" } 11 write (42,'(A)') 'de' 12 rewind (42) 13 read (42,'(A)') c 14 close (42) 15 if (c /= 'abcde') call abort () 16 end 17 18