diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-28 22:02:42 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-28 22:02:42 +0000 |
| commit | 1bb291671e446cc73cfe935f5f38ff42ece175d5 (patch) | |
| tree | 267c73d563baf5ff10572a54cb93926207c24fa9 | |
| parent | 6b835e3ce2d062ae7323a1842c795400ca00437d (diff) | |
| download | gcc-1bb291671e446cc73cfe935f5f38ff42ece175d5.tar.gz | |
2007-07-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31609
* gfortran.dg/entry_11.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127028 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/entry_11.f90 | 25 |
2 files changed, 30 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4bf697bcde6..9837d9c18a8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +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> diff --git a/gcc/testsuite/gfortran.dg/entry_11.f90 b/gcc/testsuite/gfortran.dg/entry_11.f90 new file mode 100644 index 00000000000..07e7c34132b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/entry_11.f90 @@ -0,0 +1,25 @@ +! { 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 |