URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_missing_period_2.f] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-run }`	`! { dg-run }`
`! { dg-options "-w -std=legacy" }`	`! { dg-options "-w -std=legacy" }`
`! PR27634 Missing period in format specifier. Test case derived from case given`	`! PR27634 Missing period in format specifier. Test case derived from case given`
`! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>`	`! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>`
`real :: aval = 3.14`	`real :: aval = 3.14`
`character(6) :: str = "xyz"`	`character(6) :: str = "xyz"`
`character(12) :: input = "1234abcdef"`	`character(12) :: input = "1234abcdef"`
`read(input,'(f4,a6)') aval, str`	`read(input,'(f4,a6)') aval, str`
`if (aval.ne.1234.0) call abort()`	`if (aval.ne.1234.0) call abort()`
`if (str.ne."abcdef") call abort()`	`if (str.ne."abcdef") call abort()`
`aval = 0.0`	`aval = 0.0`
`str = "xyz"`	`str = "xyz"`
`read(input,'(d4,a6)') aval, str`	`read(input,'(d4,a6)') aval, str`
`if (aval.ne.1234.0) call abort()`	`if (aval.ne.1234.0) call abort()`
`if (str.ne."abcdef") call abort()`	`if (str.ne."abcdef") call abort()`
`end`	`end`