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

Subversion Repositories openrisc

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

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


! Tests the fix for PR33334, in which the TYPE in the function
! declaration cannot be legally accessed.
!
! Contributed by Tobias Burnus 
!
module types
 implicit none
 type t
   integer :: i = 99
 end type t
end module
 
module x
 use types
 interface
   type(t) function bar() ! { dg-error "is not accessible" }
   end function
 end interface
end module
! { dg-final { cleanup-modules "types x" } }
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! Tests the fix for PR33334, in which the TYPE in the function`
2			`! declaration cannot be legally accessed.`
3			`!`
4			`! Contributed by Tobias Burnus`
5			`!`
6			`module types`
7			`implicit none`
8			`type t`
9			`integer :: i = 99`
10			`end type t`
11			`end module`
12
13			`module x`
14			`use types`
15			`interface`
16			`type(t) function bar() ! { dg-error "is not accessible" }`
17			`end function`
18			`end interface`
19			`end module`
20			`! { dg-final { cleanup-modules "types x" } }`
21

Browse

Tools

Subversion Repositories openrisc

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