OSDN Git Service

2006-10-28 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 28 Oct 2006 21:05:42 +0000 (21:05 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 28 Oct 2006 21:05:42 +0000 (21:05 +0000)
PR fortran/29625
* io/transfer.c (formatted_transfer_scalar): Allow binary edit
  descriptors for real variables; give error for BOZ edit
  descriptor for non-integers when using -std=f*.

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

libgfortran/ChangeLog
libgfortran/io/transfer.c

index fc9aeea..d73d188 100644 (file)
@@ -1,3 +1,10 @@
+2006-10-28 Tobias Burnus <burnus@net-b.de>
+
+       PR fortran/29625
+       * io/transfer.c (formatted_transfer_scalar): Allow binary edit
+         descriptors for real variables; give error for BOZ edit
+         descriptor for non-integers when using -std=f*.
+
 2006-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/29563
index aacf4a3..46fae1b 100644 (file)
@@ -844,7 +844,9 @@ formatted_transfer_scalar (st_parameter_dt *dtp, bt type, void *p, int len,
        case FMT_B:
          if (n == 0)
            goto need_data;
-         if (require_type (dtp, BT_INTEGER, type, f))
+
+         if (compile_options.allow_std < GFC_STD_GNU
+              && require_type (dtp, BT_INTEGER, type, f))
            return;
 
          if (dtp->u.p.mode == READING)
@@ -856,7 +858,11 @@ formatted_transfer_scalar (st_parameter_dt *dtp, bt type, void *p, int len,
 
        case FMT_O:
          if (n == 0)
-           goto need_data;
+           goto need_data; 
+
+         if (compile_options.allow_std < GFC_STD_GNU
+              && require_type (dtp, BT_INTEGER, type, f))
+           return;
 
          if (dtp->u.p.mode == READING)
            read_radix (dtp, f, p, len, 8);
@@ -869,6 +875,10 @@ formatted_transfer_scalar (st_parameter_dt *dtp, bt type, void *p, int len,
          if (n == 0)
            goto need_data;
 
+         if (compile_options.allow_std < GFC_STD_GNU
+              && require_type (dtp, BT_INTEGER, type, f))
+           return;
+
          if (dtp->u.p.mode == READING)
            read_radix (dtp, f, p, len, 16);
          else