diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-28 22:02:42 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-28 22:02:42 +0000 |
| commit | e417e594f101bd10bca2cf33f3b7572a98e19a8f (patch) | |
| tree | 267c73d563baf5ff10572a54cb93926207c24fa9 | |
| parent | 9b6dd300181991dc03186c3534062afbf9058824 (diff) | |
| download | gcc-e417e594f101bd10bca2cf33f3b7572a98e19a8f.zip gcc-e417e594f101bd10bca2cf33f3b7572a98e19a8f.tar.gz gcc-e417e594f101bd10bca2cf33f3b7572a98e19a8f.tar.bz2 | |
re PR fortran/31609 (module that calls a contained function with an ENTRY point)
2007-07-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31609
* gfortran.dg/entry_11.f90: New test.
From-SVN: r127028
| -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 4bf697b..9837d9c 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 0000000..07e7c34 --- /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 |