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

re PR fortran/66643 (Missing compilation error for formatted data transfer without format)

Browse source 
2016-09-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/66643
	* io.c (match_dt_unit): Peek check for missing format.

	* gfortran.fortran-torture/compile/arrayio.f90: Update test.
	* gfortran.fortran-torture/compile/write.f90: Update test.

From-SVN: r240686
This commit is contained in:
Jerry DeLisle 2016-09-30 23:19:58 +00:00
parent 5afa955f12
commit e3228a5038
5 changed files with 20 additions and 3 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 @@
2016-09-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/66643
* io.c (match_dt_unit): Peek check for missing format.
2016-09-30 Fritz Reese <fritzoreese@gmail.com>
PR fortran/77764

6
gcc/fortran/io.c
View file

@ -2688,6 +2688,7 @@ static match
match_dt_unit (io_kind k, gfc_dt *dt)
{
gfc_expr *e;
char c;
if (gfc_match_char ('*') == MATCH_YES)
{
@ -2695,6 +2696,11 @@ match_dt_unit (io_kind k, gfc_dt *dt)
goto conflict;
dt->io_unit = default_unit (k);
c = gfc_peek_ascii_char ();
if (c == ')')
gfc_error_now ("Missing format with default unit at %C");
return MATCH_YES;
}

6
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2016-09-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/66643
* gfortran.fortran-torture/compile/arrayio.f90: Update test.
* gfortran.fortran-torture/compile/write.f90: Update test.
2016-09-30 Matthew Wawhab <matthew.wahab@arm.com>
* gcc.target/arm/fp16-aapcs-3.c: Replace arm_fp16_ok with

2
gcc/testsuite/gfortran.fortran-torture/compile/arrayio.f90
View file

@ -8,5 +8,5 @@ program arrayio
a(:, j) = (/ (i + (j - 1) * 5, i=1,5) /)
end do
write (*) a
write (*,*) a
end program

4
gcc/testsuite/gfortran.fortran-torture/compile/write.f90
View file

@ -1,5 +1,5 @@
! Program to test simple IO
program testwrite
write (*) 1
write (*) "Hello World"
write (*,*) 1
write (*,*) "Hello World"
end program