gcc/testsuite/gfortran.dg/internal_dummy_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 ! Tests the fix for 20861, in which internal procedures were permitted to
   4 ! be dummy arguments.
   5 !
   6 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   7 !
   8 CALL DD(TT) ! { dg-error "Fortran 2008: Internal procedure 'tt' is used as actual argument" }
   9 CONTAINS
  10 SUBROUTINE DD(F)
  11   INTERFACE
  12    SUBROUTINE F(X)
  13     REAL :: X
  14    END SUBROUTINE F
  15   END INTERFACE
  16 END SUBROUTINE DD
  17 SUBROUTINE TT(X)
  18   REAL :: X
  19 END SUBROUTINE
  20 END