Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/fmt_missing_period_2.f @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-w -std=legacy" } ! PR27634 Missing period in format specifier. Test case derived from case given ! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> real :: aval = 3.14 character(6) :: str = "xyz" character(12) :: input = "1234abcdef" read(input,'(f4,a6)') aval, str if (aval.ne.1234.0) call abort() if (str.ne."abcdef") call abort() aval = 0.0 str = "xyz" read(input,'(d4,a6)') aval, str if (aval.ne.1234.0) call abort() if (str.ne."abcdef") call abort() end