2012-12-28 Janus Weil <janus@gcc.gnu.org>

	PR fortran/55692
	* check.c (gfc_check_associated): Remove a "gcc_assert (0)".

2012-12-28  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/55692
	* gfortran.dg/associated_7.f90: New.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d04897eabfae1b0b884e3b3fd400a15cdfc63a4d..5045220f03828028724f66b2103e73079f53c01e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-28  Janus Weil  <janus@gcc.gnu.org>
+
+       PR fortran/55692
+       * check.c (gfc_check_associated): Remove a "gcc_assert (0)".
+
 2012-12-28  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/55763

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 0923f121215ddccfecc8d35211462cd49a6fbc88..4e8b046439d8dc327cdc82b3e24a8dcc47bc4adf 100644 (file)
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -895,12 +895,10 @@ gfc_check_associated (gfc_expr *pointer, gfc_expr *target)
 
   where = &pointer->where;
 
-  if (pointer->expr_type == EXPR_VARIABLE || pointer->expr_type == EXPR_FUNCTION)
-    attr1 = gfc_expr_attr (pointer);
-  else if (pointer->expr_type == EXPR_NULL)
+  if (pointer->expr_type == EXPR_NULL)
     goto null_arg;
-  else
-    gcc_assert (0); /* Pointer must be a variable or a function.  */
+
+  attr1 = gfc_expr_attr (pointer);
 
   if (!attr1.pointer && !attr1.proc_pointer)
     {

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 38935dc13fa5067d24c72f7ae824be6392611040..bf786b1878c7fbf38f1c6ca0b5656dd7e82bc489 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-28  Janus Weil  <janus@gcc.gnu.org>
+
+       PR fortran/55692
+       * gfortran.dg/associated_7.f90: New.
+
 2012-12-28  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/55763

diff --git a/gcc/testsuite/gfortran.dg/associated_7.f90 b/gcc/testsuite/gfortran.dg/associated_7.f90
new file mode 100644 (file)
index 0000000..bc56f84
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/associated_7.f90
@@ -0,0 +1,9 @@
+! { dg-do compile }
+!
+! PR 55692: ICE on incorrect use of ASSOCIATED function
+!
+! Contributed by Gilbert Scott <gilbert.scott@easynet.co.uk>
+
+INTEGER, POINTER :: P1, P2
+PRINT *, ASSOCIATED([P1,P2])   ! { dg-error "must be a POINTER" }
+END