comparison 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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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