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 }
|
! Tests the fix for PR23446. Based on PR example.
|
! Tests the fix for PR23446. Based on PR example.
|
! Contributed by Paul Thomas
|
! Contributed by Paul Thomas
|
!
|
!
|
! Tests furthermore the fix for PR fortran/29916.
|
! Tests furthermore the fix for PR fortran/29916.
|
! Test contributed by Marco Restelli
|
! Test contributed by Marco Restelli
|
!
|
!
|
PROGRAM TST
|
PROGRAM TST
|
INTEGER IMAX
|
INTEGER IMAX
|
INTEGER :: A(4) = 1
|
INTEGER :: A(4) = 1
|
IMAX=2
|
IMAX=2
|
|
|
CALL S(A)
|
CALL S(A)
|
CALL T(A)
|
CALL T(A)
|
CALL U(A)
|
CALL U(A)
|
if ( ALL(A.ne.(/2,2,3,4/))) CALL ABORT ()
|
if ( ALL(A.ne.(/2,2,3,4/))) CALL ABORT ()
|
if ( ALL(F().ne.(/2.0,2.0/))) CALL ABORT()
|
if ( ALL(F().ne.(/2.0,2.0/))) CALL ABORT()
|
|
|
CONTAINS
|
CONTAINS
|
SUBROUTINE S(A)
|
SUBROUTINE S(A)
|
INTEGER A(IMAX)
|
INTEGER A(IMAX)
|
a = 2
|
a = 2
|
END SUBROUTINE S
|
END SUBROUTINE S
|
SUBROUTINE T(A)
|
SUBROUTINE T(A)
|
INTEGER A(3:IMAX+4)
|
INTEGER A(3:IMAX+4)
|
A(5:IMAX+4) = 3
|
A(5:IMAX+4) = 3
|
END SUBROUTINE T
|
END SUBROUTINE T
|
SUBROUTINE U(A)
|
SUBROUTINE U(A)
|
INTEGER A(2,IMAX)
|
INTEGER A(2,IMAX)
|
A(2,2) = 4
|
A(2,2) = 4
|
END SUBROUTINE U
|
END SUBROUTINE U
|
FUNCTION F()
|
FUNCTION F()
|
real :: F(IMAX)
|
real :: F(IMAX)
|
F = 2.0
|
F = 2.0
|
END FUNCTION F
|
END FUNCTION F
|
ENDPROGRAM TST
|
ENDPROGRAM TST
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.