Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/fmt_white.f @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
rev | line source |
---|---|
111 | 1 ! { dg-do run } |
2 ! { dg-options "-std=legacy" } | |
3 ! | |
4 ! PR24268 Test case derived from example given by Iwan Kawrakow | |
5 ! Embedded spaces in format strings should be ignored. | |
6 ! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> | |
7 program pr24268 | |
8 real x | |
9 character*13 line | |
10 line = "12.34" | |
11 read(line,*) x | |
12 write(line,10) x | |
13 10 format(g1 | |
14 * 1.4) | |
15 if (line.ne." 12.34") call abort() | |
16 line = "" | |
17 write(line,20) x | |
18 20 format(t r 2 , g 1 1 . 4) | |
19 if (line.ne." 12.34") call abort() | |
20 end |