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 run }
|
! { dg-do run }
|
! Check the fix for PR33568 in which the optional KIND
|
! Check the fix for PR33568 in which the optional KIND
|
! argument for ANINT, with an array for the first argument
|
! argument for ANINT, with an array for the first argument
|
! would cause an ICE.
|
! would cause an ICE.
|
!
|
!
|
! Contributed by Ignacio Fernández Galván
|
! Contributed by Ignacio Fernández Galván
|
!
|
!
|
PROGRAM Test
|
PROGRAM Test
|
IMPLICIT NONE
|
IMPLICIT NONE
|
INTEGER, PARAMETER :: DP=8
|
INTEGER, PARAMETER :: DP=8
|
REAL(DP), DIMENSION(1:3) :: A = (/1.76,2.32,7.66/), B
|
REAL(DP), DIMENSION(1:3) :: A = (/1.76,2.32,7.66/), B
|
A = ANINT ( A , DP)
|
A = ANINT ( A , DP)
|
B = A
|
B = A
|
A = ANINT ( A)
|
A = ANINT ( A)
|
if (any (A .ne. B)) call abort ()
|
if (any (A .ne. B)) call abort ()
|
END PROGRAM Test
|
END PROGRAM Test
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.