gcc/testsuite/gfortran.dg/entry_11.f90

   1 ! { dg-do compile }
   2 ! PR31609 module that calls a contained function with an ENTRY point
   3 ! Test case derived from the PR
   4
   5 MODULE ksbin1_aux_mod
   6   CONTAINS
   7     SUBROUTINE sub
   8     i = k()
   9     END SUBROUTINE sub
  10     FUNCTION j ()
  11       print *, "in j"
  12     j = 111
  13     ENTRY k ()
  14       print *, "in k"
  15     k = 222
  16     END FUNCTION j
  17 END MODULE ksbin1_aux_mod
  18
  19 program testit
  20   use ksbin1_aux_mod
  21   l = j()
  22   print *, l
  23   l = k()
  24   print *, l
  25 end program testit