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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [iolength_2.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! Test that IOLENGTH works for derived types containing arrays
2
module iolength_2_mod
3
  integer, parameter ::  &
4
       ! 32 bit, i.e. 4 byte integer (every gcc architecture should have this?)
5
       int32 = selected_int_kind(9), &
6
       ! IEEE double precision, i.e. 8 bytes
7
       dp = selected_real_kind(15, 307)
8
  type foo
9
     ! This type should take up 5*4+4+8=32 bytes
10
     integer(int32) :: a(5), b
11
     real(dp) :: c
12
  end type foo
13
end module iolength_2_mod
14
 
15
program iolength_2
16
  use iolength_2_mod
17
  implicit none
18
  integer :: iol
19
  type(foo) :: d
20
  inquire (iolength = iol) d
21
  if ( 32 /= iol) then
22
     call abort
23
  end if
24
end program iolength_2

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.