gcc/testsuite/gfortran.dg/intent_used_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for the regression caused by the patch for PR20869
   3 ! which itself is tested and described by intrinsic_external_1.f90
   4 !
   5 ! reported to the fortran list by Dominique Dhumieres  dominiq@lps.ens.fr
   6
   7 MODULE global
   8    INTERFACE
   9       SUBROUTINE foo(i, j)
  10       IMPLICIT NONE
  11       INTEGER :: j
  12       integer, DIMENSION(j,*) :: i ! This constituted usage of j and so triggered....
  13       INTENT (IN) j  ! Would give "Cannot change attributes of symbol at (1) after it has been used"
  14       INTENT (INOUT) i
  15       END SUBROUTINE foo
  16    END INTERFACE
  17 END MODULE global
  18
  19 ! { dg-final { cleanup-modules "global" } }