assumed_size_refs_3.f90

来自「用于进行gcc测试」· F90 代码 · 共 17 行

! { dg-do compile }
! Tests the fix for PR25951, a regression caused by the assumed
! size patch.
! Test case provided by Mark Hesselink  <[e-mail]>
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