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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [inquire-complex.f90] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! PR 23428:  Inquire(iolength) used to give the wrong result.
program main
  implicit none
  integer s4, s8
 
  complex(kind=8) c8
  complex(kind=4) c4
 
  inquire (iolength=s4) c4
  inquire (iolength=s8) c8
  if (s4 /= 8 .or. s8 /= 16) call abort
 
end program main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 23428: Inquire(iolength) used to give the wrong result.`
3			`program main`
4			`implicit none`
5			`integer s4, s8`
6
7			`complex(kind=8) c8`
8			`complex(kind=4) c4`
9
10			`inquire (iolength=s4) c4`
11			`inquire (iolength=s8) c8`
12			`if (s4 /= 8 .or. s8 /= 16) call abort`
13
14			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [inquire-complex.f90] - Blame information for rev 774