blob: b8aa44b783249a6e45c73feaeb384552e3d9f040 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|