Merge from mainline.
[official-gcc.git] / gcc / testsuite / gfortran.dg / fmt_missing_period_3.f
blobdf52d80e041225745709b0efe777abf055593e2c
1 ! { dg-run }
2 ! { dg-options "-std=legacy" }
3 ! PR27634 Missing period in format specifier. Test case derived from case given
4 ! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
5 real :: aval = 3.14
6 character(6) :: str = "xyz"
7 character(12) :: input = "1234abcdef"
8 character(8) :: fmtstr = "(f4,a6)"
9 aval = 0.0
10 str = "xyz"
11 read(input,fmtstr) aval, str
12 if (aval.ne.1234.0) call abort()
13 if (str.ne."abcdef") call abort()
14 end