From f96891e13567450d2dad8b51b78e66c9a825a6f8 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Thu, 4 May 2017 18:45:50 +0000 Subject: 2017-05-04 Jerry DeLisle Backport from trunk. PR fortran/80484 * io.c (format_lex): Check for '/' and set token to FMT_SLASH. (check_format): Move FMT_DT checking code to data_desc section. * module.c (gfc_match_use): Include the case of INTERFACE_DTIO. Backport from mainline PR fortran/80484 * gfortran.dg/dtio_29.f03: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-7-branch@247615 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/module.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/module.c') diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 4d6afa55d385..e8cba1455aaf 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -631,6 +631,7 @@ gfc_match_use (void) case INTERFACE_USER_OP: case INTERFACE_GENERIC: + case INTERFACE_DTIO: m = gfc_match (" =>"); if (type == INTERFACE_USER_OP && m == MATCH_YES -- cgit v1.2.3