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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! PR 36704: Procedure pointer as function result
4
!
5
! Contributed by Janus Weil 
6
 
7
function f() result(r)
8
real, parameter :: r = 5.0    ! { dg-error "attribute conflicts" }
9
end function
10
 
11
function g() result(s)
12
real :: a,b,c
13
namelist /s/ a,b,c    ! { dg-error "attribute conflicts" }
14
end function
15
 
16
function h() result(t)
17
type t    ! { dg-error "GENERIC attribute conflicts with RESULT attribute" }
18
end type t ! { dg-error "Expecting END FUNCTION statement" }
19
end function
20
 
21
function i() result(t)
22
type t    ! { dg-error "GENERIC attribute conflicts with RESULT attribute" }
23
end function

powered by: WebSVN 2.1.0

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