From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 19 Jan 2019 21:18:26 +0000 (+0000)
Subject: 2019-01-19  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=19081b879767fcc5cebecbe879d338a2b75376ae;p=thirdparty%2Fgcc.git

2019-01-19  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77960
	* io.c (match_io_element): input-item cannot be an external function.

2019-01-19  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77960
	* gfortran.dg/pr77960.f90: New test.


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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c55cd7515f30..6c95a879b24c 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2019-01-19  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/77960
+	* io.c (match_io_element): input-item cannot be an external function.
+ 
 2018-01-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 	Paul Thomas  <pault@gcc.gnu.org>
 
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 4ea37a331ca9..fce9228c3026 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -3610,6 +3610,16 @@ match_io_element (io_kind k, gfc_code **cpp)
       m = gfc_match_variable (&expr, 0);
       if (m == MATCH_NO)
 	gfc_error ("Expected variable in READ statement at %C");
+
+      if (m == MATCH_YES
+	  && expr->expr_type == EXPR_VARIABLE
+	  && expr->symtree->n.sym->attr.external)
+	{
+	  gfc_error ("Expecting variable or io-implied-do at %L",
+		     &expr->where);
+	  m = MATCH_ERROR;
+	}
+
     }
   else
     {
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 286614dff12b..f3c66ee318da 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-01-19  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/77960
+	* gfortran.dg/pr77960.f90: New test.
+
 2018-01-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 	Paul Thomas  <pault@gcc.gnu.org>
 
diff --git a/gcc/testsuite/gfortran.dg/pr77960.f90 b/gcc/testsuite/gfortran.dg/pr77960.f90
new file mode 100644
index 000000000000..6d9240e7384c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr77960.f90
@@ -0,0 +1,16 @@
+! { dg-do compile }
+! PR fortran/77960
+   procedure(g), pointer :: f
+   f => g
+   read(99) f                 ! { dg-error "Expecting variable" }
+contains
+   function g() result(z)
+      integer :: z(2)
+      z = 1
+   end
+end
+
+subroutine bar(x)
+   integer, external :: x
+   read(*,*) x                ! { dg-error "Expecting variable" }
+end subroutine