gcc/testsuite/gfortran.dg/stfunc_3.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR20867 in which implicit typing was not done within
   3 ! statement functions and so was not confirmed or not by subsequent
   4 ! type delarations.
   5 !
   6 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   7 !
   8   REAL :: st1
   9   st1(I)=I**2
  10   REAL :: I ! { dg-error " already has basic type of INTEGER" }
  11   END
  12
  13