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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [common_10.f90] - Blame information for rev 801

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


use iso_c_binding
implicit none
 
type, bind(C) :: mytype1
  integer(c_int) :: x
  real(c_float)    :: y
end type mytype1
 
type mytype2
  sequence
  integer :: x
  real    :: y
end type mytype2
 
type mytype3
  integer :: x
  real    :: y
end type mytype3
 
type mytype4
  sequence
  integer, allocatable, dimension(:) :: x
end type mytype4
 
type mytype5
  sequence
  integer, pointer :: x
  integer :: y
end type mytype5
 
type mytype6
  sequence
  type(mytype5) :: t
end type mytype6
 
type mytype7
  sequence
  type(mytype4) :: t
end type mytype7
 
common /a/ t1
common /b/ t2
common /c/ t3  ! { dg-error "has neither the SEQUENCE nor the BIND.C. attribute" }
common /d/ t4  ! { dg-error "has an ultimate component that is allocatable" }
common /e/ t5
common /f/ t6
common /f/ t7  ! { dg-error "has an ultimate component that is allocatable" }
type(mytype1) :: t1
type(mytype2) :: t2
type(mytype3) :: t3
type(mytype4) :: t4
type(mytype5) :: t5
type(mytype6) :: t6
type(mytype7) :: t7
end

Line No.	Rev	Author	Line
1	694	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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [common_10.f90] - Blame information for rev 801