From 3f298330df79dd552374eac471c5ea2824999421 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 15 Jan 2010 02:06:23 +0000 Subject: [PATCH] re PR fortran/42684 (ICE when interface operator(xx) available through host and use assoc in module procedure) 2010-01-14 Jerry DeLisle PR fortran/42684 * gfortran.dg/interface_31.f90: New test. From-SVN: r155931 --- gcc/testsuite/ChangeLog | 5 +++ gcc/testsuite/gfortran.dg/interface_31.f90 | 41 ++++++++++++++++++++++ 2 files changed, 46 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/interface_31.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f527fce46b6..14310b16781 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-01-14 Jerry DeLisle + + PR fortran/42684 + * gfortran.dg/interface_31.f90: New test. + 2010-01-14 Michael Meissner * gcc.target/powerpc/pr42747.c: New file. diff --git a/gcc/testsuite/gfortran.dg/interface_31.f90 b/gcc/testsuite/gfortran.dg/interface_31.f90 new file mode 100644 index 00000000000..3b0e8f8283b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/interface_31.f90 @@ -0,0 +1,41 @@ +! { dg-do compile } +! PR42684 (42680) Ice with Interface. +MODULE mod1 + IMPLICIT NONE + TYPE ta + INTEGER i + END TYPE ta + INTERFACE OPERATOR(+) + MODULE PROCEDURE add_a + END INTERFACE OPERATOR(+) +CONTAINS + FUNCTION add_a(lhs, rhs) RESULT(r) + TYPE(ta), INTENT(IN) :: lhs + TYPE(ta), INTENT(IN) :: rhs + TYPE(ta) :: r + !**** + r%i = lhs%i + rhs%i + END FUNCTION add_a +END MODULE mod1 + +MODULE mod2 + IMPLICIT NONE + TYPE tb + INTEGER j + END TYPE tb + INTERFACE OPERATOR(+) + MODULE PROCEDURE add_b + END INTERFACE OPERATOR(+) +CONTAINS + SUBROUTINE other_proc() + USE mod1 ! Causes ICE + END SUBROUTINE other_proc + FUNCTION add_b(lhs, rhs) RESULT(r) + TYPE(tb), INTENT(IN) :: lhs + TYPE(tb), INTENT(IN) :: rhs + TYPE(tb) :: r + !**** + r%j = lhs%j + rhs%j + END FUNCTION add_b +END MODULE mod2 +! { dg-final { cleanup-modules "mod1 mod2" } }