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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [func_result_3.f90] - Blame information for rev 686

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/32088`
3			`!`
4			`! Test implicitly defined result variables`
5			`!`
6			`subroutine dummy`
7			`contains`
8			`function quadric(a,b) result(c)`
9			`intent(in) a,b; dimension a(0:3),b(0:3),c(0:9)`
10			`c(0)=a(0)b(0); c(1:3)=a(1:)b(0)+a(0)b(1:); c(4:6)=a(1:)b(1:)`
11			`c(7:9)=(/a(1)b(2)+b(1)a(2),a(1)b(3)+b(1)a(3),a(2)b(3)+b(2)a(3)/)`
12			`end function`
13			`end subroutine dummy`
14
15			`subroutine dummy2`
16			`implicit none`
17			`contains`
18			`function quadric(a,b) result(c) ! { dg-error "no IMPLICIT type" }`
19			`real :: a, b`
20			`intent(in) a,b; dimension a(0:3),b(0:3),c(0:9)`
21			`c(0)=a(0)b(0); c(1:3)=a(1:)b(0)+a(0)b(1:); c(4:6)=a(1:)b(1:)`
22			`c(7:9)=(/a(1)b(2)+b(1)a(2),a(1)b(3)+b(1)a(3),a(2)b(3)+b(2)a(3)/)`
23			`end function`
24			`end subroutine dummy2`
25			`end`