2010-01-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 15 Jan 2010 02:06:23 +0000 (02:06 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 15 Jan 2010 02:06:23 +0000 (02:06 +0000)
PR fortran/42684
* gfortran.dg/interface_31.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155931 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/interface_31.f90 [new file with mode: 0644]

index f527fce..14310b1 100644 (file)
@@ -1,3 +1,8 @@
+2010-01-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+       PR fortran/42684
+       * gfortran.dg/interface_31.f90: New test.
+
 2010-01-14  Michael Meissner  <meissner@linux.vnet.ibm.com>
 
        * 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 (file)
index 0000000..3b0e8f8
--- /dev/null
@@ -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" } }