17 lines
511 B
Fortran
17 lines
511 B
Fortran
|
! { 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
|