2007-07-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31609
* gfortran.dg/entry_11.f90: New test.
From-SVN: r127028
+2007-07-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/31609
+ * gfortran.dg/entry_11.f90: New test.
+
2007-07-29 Vladimir Yanovsky <yanov@il.ibm.com>
Revital Eres <eres@il.ibm.com>
--- /dev/null
+! { dg-do compile }
+! PR31609 module that calls a contained function with an ENTRY point
+! Test case derived from the PR
+
+MODULE ksbin1_aux_mod
+ CONTAINS
+ SUBROUTINE sub
+ i = k()
+ END SUBROUTINE sub
+ FUNCTION j ()
+ print *, "in j"
+ j = 111
+ ENTRY k ()
+ print *, "in k"
+ k = 222
+ END FUNCTION j
+END MODULE ksbin1_aux_mod
+
+program testit
+ use ksbin1_aux_mod
+ l = j()
+ print *, l
+ l = k()
+ print *, l
+end program testit
\ No newline at end of file