Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/f2003_io_8.f03 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 ! { dg-options "-std=gnu" } | |
3 ! | |
4 real :: a(4), b(4) | |
5 real :: c | |
6 integer :: istat, j | |
7 character(25) :: msg | |
8 | |
9 open(10, file='mydata_f2003_io_8', asynchronous="yes", blank="null") | |
10 write(10,'(10f8.3)', asynchronous='no', decimal="comma", id=j) a ! { dg-error "must be with ASYNCHRONOUS=" } | |
11 read(10,'(10f8.3)', id=j, decimal="comma", blank="zero") b ! { dg-error "must be with ASYNCHRONOUS=" } | |
12 read(10,'(10f8.3)', asynchronous=msg, decimal="comma", blank="zero") b ! { dg-error "must be an initialization expression" } | |
13 end |