procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/91650 (ICE in gfc_conv_constant_to_tree, at fortran/trans-const.c:370)

Browse source 
2019-09-04  Steven G. Kargl  <kargl@gcvc.gnu.org>

	PR fortran/91650
	* io.c (match_io_element):  An output IO list item cannot be a BOZ.

2019-09-04  Steven G. Kargl  <kargl@gcvc.gnu.org>

	PR fortran/91650
	* gfortran.dg/pr91650_1.f90: New test.
	* gfortran.dg/pr91650_2.f90: Ditto.

From-SVN: r275391
This commit is contained in:
Steven G. Kargl 2019-09-04 23:21:12 +00:00
parent ad4d1d21ad
commit 4844a5cb8c
5 changed files with 41 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -1,3 +1,8 @@
2019-09-04 Steven G. Kargl <kargl@gcvc.gnu.org>
PR fortran/91650
* io.c (match_io_element): An output IO list item cannot be a BOZ.
2019-09-03 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.texi: Update documentation to catch up with BOZ changes.

9
gcc/fortran/io.c
View file

@ -3675,6 +3675,15 @@ match_io_element (io_kind k, gfc_code **cpp)
if (m == MATCH_NO)
gfc_error ("Expected expression in %s statement at %C",
io_kind_name (k));
if (m == MATCH_YES && expr->ts.type == BT_BOZ)
{
if (gfc_invalid_boz ("BOZ literal constant at %L cannot appear in "
"an output IO list", &gfc_current_locus))
return MATCH_ERROR;
if (!gfc_boz2int (expr, gfc_max_integer_kind))
return MATCH_ERROR;
};
}
if (m == MATCH_YES && k == M_READ && gfc_check_do_variable (expr->symtree))

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2019-09-04 Steven G. Kargl <kargl@gcvc.gnu.org>
PR fortran/91650
* gfortran.dg/pr91650_1.f90: New test.
* gfortran.dg/pr91650_2.f90: Ditto.
2019-09-04 Marek Polacek <polacek@redhat.com>
* g++.dg/cpp0x/initlist-deduce.C: Don't use -fdeduce-init-list. Remove

8
gcc/testsuite/gfortran.dg/pr91650_1.f90 Normal file
View file

@ -0,0 +1,8 @@
! { dg-do compile }
! PR fortran/91650
! Code contributed by Gerhard Steinmetz.
program p
print *, b'10110' ! { dg-error "cannot appear in an output IO list" }
print *, o'10110' ! { dg-error "cannot appear in an output IO list" }
print *, z'10110' ! { dg-error "cannot appear in an output IO list" }
end

13
gcc/testsuite/gfortran.dg/pr91650_2.f90 Normal file
View file

@ -0,0 +1,13 @@
! { dg-do compile }
! { dg-options "-fallow-invalid-boz" }
! PR fortran/91650
! Code contributed by Gerhard Steinmetz.
program p
character(len=60) str
write(str,*) b'10110' ! { dg-warning "cannot appear in an output IO list" }
if (trim(adjustl(str)) /= '22') stop 1
write(str,*) o'10110' ! { dg-warning "cannot appear in an output IO list" }
if (trim(adjustl(str)) /= '4168') stop 2
write(str,*) z'10110' ! { dg-warning "cannot appear in an output IO list" }
if (trim(adjustl(str)) /= '65808') stop 3
end