Merge from mainline.
[official-gcc.git] / gcc / testsuite / gfortran.dg / fmt_missing_period_1.f
blobd66fb8e601b9df1f10b2e846708edae36f16ad15
1 ! { dg-compile }
2 ! PR27634 Missing period in format specifier. Test case derived from case given
3 ! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4 real aval
5 character(6) :: str
6 character(12) :: input = "1234abcdef"
7 read(input,'(f4,a6)') aval, str !{ dg-error "Period required" }
8 read(input,'(d10,a6)') aval, str !{ dg-error "Period required" }
9 end