URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [assumed_size_refs_3.f90] - Rev 302
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log