diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-04-06 17:38:33 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-04-06 17:38:33 +0200 |
| commit | fbe88ffa1600321d5d83d0aa4797192665822289 (patch) | |
| tree | 5d9316399c02854d9363b957e9feb4a84931a3a6 /gcc/testsuite/gfortran.dg | |
| parent | 2d091b12a0466d34d78d696bed390f3792ffe9fa (diff) | |
| download | gcc-fbe88ffa1600321d5d83d0aa4797192665822289.zip gcc-fbe88ffa1600321d5d83d0aa4797192665822289.tar.gz gcc-fbe88ffa1600321d5d83d0aa4797192665822289.tar.bz2 | |
io.c (check_io_constraints): Add constrains.
2008-04-06 Tobias Burnus <burnus@net-b.de>
* io.c (check_io_constraints): Add constrains. ID= requires
asynchronous= and asynchronous= must be init expression.
2008-04-06 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/f2003_io_1.f03: Make standard conform.
* gfortran.dg/f2003_io_8.f03: New.
From-SVN: r133962
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/f2003_io_1.f03 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/f2003_io_8.f03 | 13 |
2 files changed, 14 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/f2003_io_1.f03 b/gcc/testsuite/gfortran.dg/f2003_io_1.f03 index 0f8bebd..6ec14aa 100644 --- a/gcc/testsuite/gfortran.dg/f2003_io_1.f03 +++ b/gcc/testsuite/gfortran.dg/f2003_io_1.f03 @@ -10,7 +10,7 @@ a = 23.45 b = 0.0 open(10, file='mydata', asynchronous="yes", blank="null") -write(10,'(10f8.3)', decimal="comma", id=j) a +write(10,'(10f8.3)', asynchronous="yes", decimal="comma", id=j) a rewind(10) read(10,'(10f8.3)', asynchronous="yes", decimal="comma", blank="zero") b if (any(b.ne.23.45)) call abort diff --git a/gcc/testsuite/gfortran.dg/f2003_io_8.f03 b/gcc/testsuite/gfortran.dg/f2003_io_8.f03 new file mode 100644 index 0000000..2362697 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/f2003_io_8.f03 @@ -0,0 +1,13 @@ +! { dg-do compile } +! { dg-options "-std=gnu" } +! +real :: a(4), b(4) +real :: c +integer :: istat, j +character(25) :: msg + +open(10, file='mydata', asynchronous="yes", blank="null") +write(10,'(10f8.3)', asynchronous='no', decimal="comma", id=j) a ! { dg-error "must be with ASYNCHRONOUS=" } +read(10,'(10f8.3)', id=j, decimal="comma", blank="zero") b ! { dg-error "must be with ASYNCHRONOUS=" } +read(10,'(10f8.3)', asynchronous=msg, decimal="comma", blank="zero") b ! { dg-error "must be an initialization expression" } +end |