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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! Check whether ERF/ERFC take scalars and arrays as arguments (PR31760).
!
PROGRAM test_erf
  REAL :: r = 0.0, ra(2) = (/ 0.0, 1.0 /)
 
  r  = erf(r)
  r  = erfc(r)
 
  ra = erf(ra)
  ra = erfc(ra)
END PROGRAM

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! Check whether ERF/ERFC take scalars and arrays as arguments (PR31760).`
4			`!`
5			`PROGRAM test_erf`
6			`REAL :: r = 0.0, ra(2) = (/ 0.0, 1.0 /)`
7
8			`r = erf(r)`
9			`r = erfc(r)`
10
11			`ra = erf(ra)`
12			`ra = erfc(ra)`
13			`END PROGRAM`

Browse

Tools

Subversion Repositories openrisc

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