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/] [inquire-complex.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! PR 23428: Inquire(iolength) used to give the wrong result.`	`! PR 23428: Inquire(iolength) used to give the wrong result.`
`program main`	`program main`
`implicit none`	`implicit none`
`integer s4, s8`	`integer s4, s8`

`complex(kind=8) c8`	`complex(kind=8) c8`
`complex(kind=4) c4`	`complex(kind=4) c4`

`inquire (iolength=s4) c4`	`inquire (iolength=s4) c4`
`inquire (iolength=s8) c8`	`inquire (iolength=s8) c8`
`if (s4 /= 8 .or. s8 /= 16) call abort`	`if (s4 /= 8 .or. s8 /= 16) call abort`

`end program main`	`end program main`