trunk/gcc/testsuite/gfortran.dg/typed_subroutine_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for 25088, in which the compiler failed to detect that
   3 ! a called object had a type.
   4 !
   5 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   6 !
   7  INTEGER :: S ! { dg-error "has a type, which is not consistent with the CALL " }
   8  CALL S()     ! { dg-error "has a type, which is not consistent with the CALL " }
   9  END
  10  SUBROUTINE S
  11  END SUBROUTINE