20 lines
639 B
Fortran
20 lines
639 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for the regression caused by the patch for PR20869
|
|
! which itself is tested and described by intrinsic_external_1.f90
|
|
!
|
|
! reported to the fortran list by Dominique Dhumieres dominiq@lps.ens.fr
|
|
|
|
MODULE global
|
|
INTERFACE
|
|
SUBROUTINE foo(i, j)
|
|
IMPLICIT NONE
|
|
INTEGER :: j
|
|
integer, DIMENSION(j,*) :: i ! This constituted usage of j and so triggered....
|
|
INTENT (IN) j ! Would give "Cannot change attributes of symbol at (1) after it has been used"
|
|
INTENT (INOUT) i
|
|
END SUBROUTINE foo
|
|
END INTERFACE
|
|
END MODULE global
|
|
|
|
! { dg-final { cleanup-modules "global" } }
|