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

re PR fortran/33268 (read ('(f3.3)'), a rejected due to the extra (...)) 

2008-05-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/33268
	* gfortran.dg/io_constraints_4.f90: New test.

From-SVN: r134901
This commit is contained in:
Jerry DeLisle 2008-05-03 15:14:55 +00:00
parent ad7ee6f8d5
commit d18b52aa3b
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2008-05-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33268
* gfortran.dg/io_constraints_4.f90: New test.
2008-05-01 Simon Baldwin <simonb@google.com>
PR bootstrap/36108

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

@ -0,0 +1,10 @@
! { dg-do compile }
! PR33268 [patch,fortran] read ('(f3.3)'), a rejected due to the extra (...)
write(*,('(a)')) 'Hello'
write (*,'(f8.3)'), 3.14 ! { dg-warning "Comma before i/o item list" }
print ('(a)'), "valid"
read ('(f3.3)'), a
read (*, '(f3.3)'), a ! { dg-warning "Comma before i/o item list" }
write ('(a)'), "invalid" ! { dg-error "Invalid form of WRITE statement" }
end