URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [assumed_size_refs_3.f90] - Rev 694
Compare with Previous | Blame | View Log
! { dg-do compile }
! Tests the fix for PR25951, a regression caused by the assumed
! size patch.
! Test case provided by Mark Hesselink <mhesseli@caltech.edu>
PROGRAM loc_1
integer i(10)
call f (i)
CONTAINS
SUBROUTINE f (x)
INTEGER, DIMENSION(*) :: x
INTEGER :: address
! The next line would cause:
! Error: The upper bound in the last dimension must appear in the
! reference to the assumed size array 'x' at (1)
address=LOC(x)
END SUBROUTINE f
END PROGRAM loc_1