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