gcc/testsuite/gfortran.dg/parens_2.f90

   1 ! PR 25048
   2 ! { dg-do compile }
   3 ! Originally contributed by Joost VandeVondele
   4 INTEGER, POINTER :: I
   5 CALL S1((I)) ! { dg-error "Actual argument for .i. must be a pointer" }
   6 CONTAINS
   7  SUBROUTINE S1(I)
   8   INTEGER, POINTER ::I
   9  END SUBROUTINE S1
  10 END
  11