mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
23 lines
372 B
Fortran
23 lines
372 B
Fortran
! { dg-do run }
|
|
! PR 85797 - this used to get wrong results.
|
|
|
|
|
|
PROGRAM testfortran2
|
|
IMPLICIT NONE
|
|
|
|
INTEGER, DIMENSION(10), TARGET :: i4array
|
|
|
|
i4array = (/ 1,2,3,4,5,6,7,8,9,10 /)
|
|
|
|
call InRef(i4array)
|
|
|
|
CONTAINS
|
|
|
|
subroutine InRef(v)
|
|
INTEGER, DIMENSION(:), POINTER, INTENT(in) :: v
|
|
INTEGER :: i
|
|
if (any (v /= [(i,i=1,10)])) stop 1
|
|
END subroutine
|
|
|
|
END
|