Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/fmt_white.f @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
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) | |
131 | 15 if (line.ne." 12.34") STOP 1 |
111 | 16 line = "" |
17 write(line,20) x | |
18 20 format(t r 2 , g 1 1 . 4) | |
131 | 19 if (line.ne." 12.34") STOP 2 |
111 | 20 end |