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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [parameter_2.f90] - Blame information for rev 867

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

Line No. Rev Author Line
1 149 jeremybenn
! Program to test initialization expressions involving subobjects
2
program parameter_2
3
  implicit none
4
  type :: SS
5
     integer :: I
6
     integer :: J
7
  end type SS
8
  type :: TT
9
    integer :: N
10
    type (SS), dimension(2) :: o
11
  end type
12
 
13
  type (SS), parameter :: s =  SS (1, 2)
14
  type (TT), parameter :: t = TT(42, (/ SS(3, 4), SS(8, 9) /))
15
 
16
  integer, parameter :: a(2) = (/5, 10/)
17
  integer, parameter :: d1 = s%i
18
  integer, parameter :: d2 = a(2)
19
  integer, parameter :: d4 = t%o(2)%j
20
 
21
  integer q1, q2, q3, q4
22
  common /c1/q1(d1), q2(d2), q3(a(1)), q4(d4) ! legal
23
end

powered by: WebSVN 2.1.0

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