Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! { dg-do compile }

! Tests the fix for PR25951, a regression caused by the assumed

! Tests the fix for PR25951, a regression caused by the assumed

! size patch.

! size patch.

! Test case provided by Mark Hesselink  

! Test case provided by Mark Hesselink  

PROGRAM loc_1

PROGRAM loc_1

  integer i(10)

  integer i(10)

  call f (i)

  call f (i)

CONTAINS

CONTAINS

   SUBROUTINE f (x)

   SUBROUTINE f (x)

      INTEGER, DIMENSION(*)   :: x

      INTEGER, DIMENSION(*)   :: x

      INTEGER                 :: address

      INTEGER                 :: address

! The next line would cause:

! The next line would cause:

! Error: The upper bound in the last dimension must appear in the

! Error: The upper bound in the last dimension must appear in the

! reference to the assumed size array 'x' at (1)

! reference to the assumed size array 'x' at (1)

      address=LOC(x)

      address=LOC(x)

   END SUBROUTINE f

   END SUBROUTINE f