OSDN Git Service

Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / runtime_warning_1.f90
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 ! { dg-warning ".*descriptor" "" 10}