From 831cf09d60eed9f14cb06e83831cf74ea328a3bf Mon Sep 17 00:00:00 2001
From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Sat, 18 Nov 2017 18:13:20 +0200
Subject: PR 44292 Enable large record lengths in OPEN and INQUIRE statements

This is a straightforward change that we can do now that the ABI has
been bumped (again!).

Regtested on x86_64-pc-linux-gnu.

gcc/fortran/ChangeLog:

2017-11-18  Janne Blomqvist  <jb@gcc.gnu.org>

	PR fortran/44292
	* ioparm.def (IOPARM): Make recl_in intio, and recl_out pintio.

libgfortran/ChangeLog:

2017-11-18  Janne Blomqvist  <jb@gcc.gnu.org>

	PR fortran/44292
	* io/io.h: Make recl_in a GC_IO_INT and recl_out a type
	GFC_IO_INT*.

gcc/testsuite/ChangeLog:

2017-11-18  Janne Blomqvist  <jb@gcc.gnu.org>

	PR fortran/44292
	* gfortran.dg/large_recl.f90: New test.

From-SVN: r254915
---
 gcc/fortran/ioparm.def | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gcc/fortran/ioparm.def')

diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def
index ca5631b..5fc04bc 100644
--- a/gcc/fortran/ioparm.def
+++ b/gcc/fortran/ioparm.def
@@ -34,7 +34,7 @@ IOPARM (common,  line,		0,	 int4)
 IOPARM (common,  iomsg,		1 << 6,  char2)
 IOPARM (common,  iostat,	1 << 5,  pint4)
 IOPARM (open,    common,	0,	 common)
-IOPARM (open,    recl_in,	1 << 7,  int4)
+IOPARM (open,    recl_in,	1 << 7,  intio)
 IOPARM (open,    file,		1 << 8,  char2)
 IOPARM (open,    status,	1 << 9,  char1)
 IOPARM (open,    access,	1 << 10, char2)
@@ -63,7 +63,7 @@ IOPARM (inquire, opened,	1 << 8,  pint4)
 IOPARM (inquire, number,	1 << 9,  pint4)
 IOPARM (inquire, named,		1 << 10, pint4)
 IOPARM (inquire, nextrec,	1 << 11, pint4)
-IOPARM (inquire, recl_out,	1 << 12, pint4)
+IOPARM (inquire, recl_out,	1 << 12, pintio)
 IOPARM (inquire, strm_pos_out,	1 << 13, pintio)
 IOPARM (inquire, file,		1 << 14, char1)
 IOPARM (inquire, access,	1 << 15, char2)
-- 
cgit v1.1

