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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! Check that ERFC_SCALED can be used in initialization expressions
  real, parameter :: r = 100*erfc_scaled(12.7)
  integer(kind=int(r)) :: i
 
  real(kind=8), parameter :: r8 = 100*erfc_scaled(6.77)
  integer(kind=int(r8)) :: j
 
  i = 12
  j = 8
  print *, i, j
 
  end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! Check that ERFC_SCALED can be used in initialization expressions`
4			`real, parameter :: r = 100*erfc_scaled(12.7)`
5			`integer(kind=int(r)) :: i`
6
7			`real(kind=8), parameter :: r8 = 100*erfc_scaled(6.77)`
8			`integer(kind=int(r8)) :: j`
9
10			`i = 12`
11			`j = 8`
12			`print *, i, j`
13
14			`end`

Browse

Tools

Subversion Repositories openrisc

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