OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(forgot svn add in the previous commit) 

2007-06-29  Tobias Burnus  <burnus@net-b.de>

        PR fortran/32483
        * gfortran.dg/fmt_read_2.f90: New.

From-SVN: r126110
This commit is contained in:
Tobias Burnus 2007-06-29 12:05:11 +02:00
parent 27178277a3
commit 690f48b1b4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/testsuite/gfortran.dg/fmt_read_2.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
! PR fortran/32483
implicit none
integer :: r
real :: a
write (*,'(i0)') r
read (*,'(i0)') r ! { dg-warning "Positive width required" }
read (*,'(f0.2)') a ! { dg-warning "Positive width required" }
print *, r,a
END