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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR33162 INTRINSIC functions as ACTUAL argument
! Test case adapted from PR by Jerry DeLisle 
real function t(x)
  real ::x
  t = x
end function
 
program p
  implicit none
  intrinsic sin
  procedure(sin):: t
  if (t(1.0) /= 1.0) call abort
end program

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR33162 INTRINSIC functions as ACTUAL argument`
3			`! Test case adapted from PR by Jerry DeLisle`
4			`real function t(x)`
5			`real ::x`
6			`t = x`
7			`end function`
8
9			`program p`
10			`implicit none`
11			`intrinsic sin`
12			`procedure(sin):: t`
13			`if (t(1.0) /= 1.0) call abort`
14			`end program`

Browse

Tools

Subversion Repositories openrisc

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