From: Tobias Burnus Date: Mon, 8 Jul 2013 16:13:57 +0000 (+0200) Subject: re PR fortran/50554 (INQUIRE cannot redefine DO index (r178939)) X-Git-Tag: releases/gcc-4.9.0~5078 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=928675464c96e68b82c9688d24b93ac84f0ea4c2;p=thirdparty%2Fgcc.git re PR fortran/50554 (INQUIRE cannot redefine DO index (r178939)) 2013-07-08 Tobias Burnus PR fortran/50554 * io.c (match_inquire_element): Add missing do-var check. 2013-07-08 Tobias Burnus PR fortran/50554 * gfortran.dg/do_check_9.f90: New. From-SVN: r200790 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f6bc080bfb07..6cbfdae02165 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2013-07-08 Tobias Burnus + + PR fortran/50554 + * io.c (match_inquire_element): Add missing do-var check. + 2013-07-08 Tobias Burnus PR fortran/57785 diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index c5120dd78b10..678bc5d844e7 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -3890,12 +3890,12 @@ match_inquire_element (gfc_inquire *inquire) RETM m = match_vtag (&tag_s_async, &inquire->asynchronous); RETM m = match_vtag (&tag_s_delim, &inquire->delim); RETM m = match_vtag (&tag_s_decimal, &inquire->decimal); - RETM m = match_vtag (&tag_size, &inquire->size); + RETM m = match_out_tag (&tag_size, &inquire->size); RETM m = match_vtag (&tag_s_encoding, &inquire->encoding); RETM m = match_vtag (&tag_s_round, &inquire->round); RETM m = match_vtag (&tag_s_sign, &inquire->sign); RETM m = match_vtag (&tag_s_pad, &inquire->pad); - RETM m = match_vtag (&tag_iolength, &inquire->iolength); + RETM m = match_out_tag (&tag_iolength, &inquire->iolength); RETM m = match_vtag (&tag_convert, &inquire->convert); RETM m = match_out_tag (&tag_strm_out, &inquire->strm_pos); RETM m = match_vtag (&tag_pending, &inquire->pending); diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f7f4d9701c83..a6291f113f6e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-07-08 Tobias Burnus + + PR fortran/50554 + * gfortran.dg/do_check_9.f90: New. + 2013-07-08 Tobias Burnus PR fortran/57785 diff --git a/gcc/testsuite/gfortran.dg/do_check_9.f90 b/gcc/testsuite/gfortran.dg/do_check_9.f90 new file mode 100644 index 000000000000..9cc133b8f6a4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/do_check_9.f90 @@ -0,0 +1,14 @@ +! { dg-do compile } +! +! PR fortran/50554 +! +! Contributed by Vittorio Zecca +! +! INQUIRE cannot redefine DO index +! + do I=1,10 ! { dg-error "cannot be redefined inside loop beginning at" } + inquire(iolength=I) n ! { dg-error "cannot be redefined inside loop beginning at" } + inquire(99,size=I) ! { dg-error "cannot be redefined inside loop beginning at" } + read(99,'(i4)',size=I,advance="no") n ! { dg-error "cannot be redefined inside loop beginning at" } + end do + end