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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR 40176:  Fortran 2003: Procedure pointers with array return value
!
! Original test case by Barron Bichon 
! Modified by Janus Weil 
 
PROGRAM test_prog
 
  PROCEDURE(triple), POINTER :: f
 
  f => triple
  if (sum(f(2.,4.)-triple(2.,4.))>1E-3) call abort()
 
CONTAINS
 
  FUNCTION triple(a,b) RESULT(tre)
    REAL, INTENT(in) :: a, b
    REAL :: tre(2)
    tre(1) = 3.*a
    tre(2) = 3.*b
  END FUNCTION triple
 
END PROGRAM test_prog
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 40176: Fortran 2003: Procedure pointers with array return value`
4			`!`
5			`! Original test case by Barron Bichon`
6			`! Modified by Janus Weil`
7
8			`PROGRAM test_prog`
9
10			`PROCEDURE(triple), POINTER :: f`
11
12			`f => triple`
13			`if (sum(f(2.,4.)-triple(2.,4.))>1E-3) call abort()`
14
15			`CONTAINS`
16
17			`FUNCTION triple(a,b) RESULT(tre)`
18			`REAL, INTENT(in) :: a, b`
19			`REAL :: tre(2)`
20			`tre(1) = 3.*a`
21			`tre(2) = 3.*b`
22			`END FUNCTION triple`
23
24			`END PROGRAM test_prog`
25

Browse

Tools

Subversion Repositories openrisc

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