OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [common_10.f90] - Blame information for rev 315

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

Line No. Rev Author Line
1 302 jeremybenn 
use iso_c_binding
2 
implicit none
3 
 
4 
type, bind(C) :: mytype1
5 
  integer(c_int) :: x
6 
  real(c_float)    :: y
7 
end type mytype1
8 
 
9 
type mytype2
10 
  sequence
11 
  integer :: x
12 
  real    :: y
13 
end type mytype2
14 
 
15 
type mytype3
16 
  integer :: x
17 
  real    :: y
18 
end type mytype3
19 
 
20 
type mytype4
21 
  sequence
22 
  integer, allocatable, dimension(:) :: x
23 
end type mytype4
24 
 
25 
type mytype5
26 
  sequence
27 
  integer, pointer :: x
28 
  integer :: y
29 
end type mytype5
30 
 
31 
type mytype6
32 
  sequence
33 
  type(mytype5) :: t
34 
end type mytype6
35 
 
36 
type mytype7
37 
  sequence
38 
  type(mytype4) :: t
39 
end type mytype7
40 
 
41 
common /a/ t1
42 
common /b/ t2
43 
common /c/ t3  ! { dg-error "has neither the SEQUENCE nor the BIND.C. attribute" }
44 
common /d/ t4  ! { dg-error "has an ultimate component that is allocatable" }
45 
common /e/ t5
46 
common /f/ t6
47 
common /f/ t7  ! { dg-error "has an ultimate component that is allocatable" }
48 
type(mytype1) :: t1
49 
type(mytype2) :: t2
50 
type(mytype3) :: t3
51 
type(mytype4) :: t4
52 
type(mytype5) :: t5
53 
type(mytype6) :: t6
54 
type(mytype7) :: t7
55 
end

powered by: WebSVN 2.1.0

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