gcc/testsuite/gfortran.dg/internal_dummy_1.f90

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