gcc/testsuite/gfortran.dg/stfunc_3.f90

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