URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
! { dg-options "-std=f2003" }
|
! { dg-options "-std=f2003" }
|
!
|
!
|
! PR fortran/40728
|
! PR fortran/40728
|
!
|
!
|
|
|
! bogus error
|
! bogus error
|
SUBROUTINE s1
|
SUBROUTINE s1
|
IMPLICIT NONE
|
IMPLICIT NONE
|
real(4), volatile :: r4
|
real(4), volatile :: r4
|
|
|
r4 = 0.0_4
|
r4 = 0.0_4
|
r4 = asinh(r4) ! { dg-error "has no IMPLICIT type" }
|
r4 = asinh(r4) ! { dg-error "has no IMPLICIT type" }
|
END SUBROUTINE
|
END SUBROUTINE
|
|
|
|
|
|
|
! ICE on invalid (ATANH is defined by F2008 only)
|
! ICE on invalid (ATANH is defined by F2008 only)
|
SUBROUTINE s2
|
SUBROUTINE s2
|
IMPLICIT NONE
|
IMPLICIT NONE
|
real :: r
|
real :: r
|
r = 0.4
|
r = 0.4
|
print *, atanh(r) ! { dg-error "has no IMPLICIT type" }
|
print *, atanh(r) ! { dg-error "has no IMPLICIT type" }
|
END SUBROUTINE
|
END SUBROUTINE
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.