Subversion Repositories openrisc

! Test runtime warnings using non-standard $ editing - PR20006.

!

! Contributor Francois-Xavier Coudert  

!

! { dg-options "-pedantic" }

! { dg-do run }

!

     character(5) c

     open (42,status='scratch')

     write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }

     write (42,'(A)') 'de'

     rewind (42)

     read (42,'(A)') c

     close (42)

     if (c /= 'abcde') call abort ()

     end

! { dg-warning ".*descriptor" "" 10}