re PR fortran/44584 (Invalid memory access with gfortran.dg/typebound_proc_15.f03)

2010-06-19  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44584
	* resolve.c (resolve_fl_derived): Reverse ordering of conditions
	to avoid ICE.


2010-06-19  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44584
	* gfortran.dg/typebound_proc_15.f03: Modified.

From-SVN: r161041

gcc/fortran/ChangeLog

+2010-06-19  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/44584
+	* resolve.c (resolve_fl_derived): Reverse ordering of conditions
+	to avoid ICE.
+
 2010-06-18  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/44556

gcc/fortran/resolve.c

@@ -10892,7 +10892,7 @@ resolve_fl_derived (gfc_symbol *sym)
 		  c->ts.u.cl = cl;
 		}
 	    }
-	  else if (c->ts.interface->name[0] != '\0' && !sym->attr.vtype)
+	  else if (!sym->attr.vtype && c->ts.interface->name[0] != '\0')
 	    {
 	      gfc_error ("Interface '%s' of procedure pointer component "
 			 "'%s' at %L must be explicit", c->ts.interface->name,

gcc/testsuite/ChangeLog

+2010-06-19  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/44584
+	* gfortran.dg/typebound_proc_15.f03: Modified.
+
 2010-06-19  Richard Earnshaw  <rearnsha@arm.com>
 
 	PR target/44072

gcc/testsuite/gfortran.dg/typebound_proc_15.f03

@@ -12,7 +12,7 @@ implicit none
 type :: t
 contains
   procedure :: foo
-  procedure :: bar, baz  { dg-error "PROCEDURE list" }
+  procedure :: bar, baz  ! { dg-error "PROCEDURE list" }
 end type
 
 contains
@@ -21,6 +21,14 @@ contains
     class(t) :: this
   end subroutine
 
+  subroutine bar (this)
+    class(t) :: this
+  end subroutine
+
+  subroutine baz (this)
+    class(t) :: this
+  end subroutine
+
 end
 
 ! { dg-final { cleanup-modules "m" } }