------- Comment #12 from jvdelisle at gcc dot gnu dot org 2010-03-11 04:52
-------
The one liner:
Index: list_read.c
===================================================================
--- list_read.c (revision 157277)
+++ list_read.c (working copy)
@@ -2077,7 +2077,7 @@
/* If -std=f95/2003 or an array section is specified,
do not allow excess data to be processed. */
if (is_array_section == 1
- || compile_options.allow_std < GFC_STD_GNU)
+ || (compile_options.warn_std != 0))
ls[dim].end = ls[dim].start;
else
dtp->u.p.expanded_read = 1;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43228
