Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/dec_format_empty_item_1.f @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
rev | line source |
---|---|
145 | 1 ! { dg-do run } |
2 ! { dg-options "-fdec" } | |
3 ! | |
4 ! Test blank/empty format items in format string | |
5 ! | |
6 ! Test case contributed by Jim MacArthur <jim.macarthur@codethink.co.uk> | |
7 ! Modified by Mark Eggleston <mark.eggleston@codethink.com> | |
8 ! | |
9 PROGRAM blank_format_items | |
10 INTEGER A/0/ | |
11 | |
12 OPEN(1, status="scratch") | |
13 WRITE(1, 10) 100 | |
14 REWIND(1) | |
15 READ(1, 10) A | |
16 IF (a.NE.100) STOP 1 | |
17 PRINT 10, A | |
18 10 FORMAT( I5,) | |
19 END |