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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/45530
!
! Contributed by david.sagan@gmail.com
!
program test
implicit none
 
type c_struct
  type (g_struct), pointer :: g
end type
 
type g_struct
  type (p_struct), pointer :: p
end type
 
type p_struct
  type (region_struct), pointer :: r
end type
 
type region_struct
  type (p_struct) plot
end type
 
type (c_struct) curve(10)
namelist / params / curve ! { dg-error "ALLOCATABLE or POINTER components and thus requires a defined input/output" }
end program

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/45530`
4			`!`
5			`! Contributed by david.sagan@gmail.com`
6			`!`
7			`program test`
8			`implicit none`
9
10			`type c_struct`
11			`type (g_struct), pointer :: g`
12			`end type`
13
14			`type g_struct`
15			`type (p_struct), pointer :: p`
16			`end type`
17
18			`type p_struct`
19			`type (region_struct), pointer :: r`
20			`end type`
21
22			`type region_struct`
23			`type (p_struct) plot`
24			`end type`
25
26			`type (c_struct) curve(10)`
27			`namelist / params / curve ! { dg-error "ALLOCATABLE or POINTER components and thus requires a defined input/output" }`
28			`end program`

Browse

Tools

Subversion Repositories openrisc

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