mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 17:40:48 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/91372 (Error: Unclassifiable statement)

Browse Source 
2019-08-05  Steven g. Kargl  <kargl@gcc.gnu.org>

	PR fortran/91372
	* decl.c (gfc_match_data): Allow an implied do-loop to nestle against
	DATA.

2019-08-05  Steven g. Kargl  <kargl@gcc.gnu.org>

	PR fortran/91372
	* gfortran.dg/pr91372.f90: New test.

From-SVN: r274122
This commit is contained in:
Steven G. Kargl 2019-08-05 19:24:31 +00:00
parent ab574db6b9
commit 719f5a10e7
4 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2019-08-05 Steven g. Kargl <kargl@gcc.gnu.org>
PR fortran/91372
* decl.c (gfc_match_data): Allow an implied do-loop to nestle against
DATA.
2019-08-04 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88227

5
gcc/fortran/decl.c
View File

@ -624,9 +624,10 @@ gfc_match_data (void)
char c;
/* DATA has been matched. In free form source code, the next character
needs to be whitespace. Check that here. */
needs to be whitespace or '(' from an implied do-loop. Check that
here. */
c = gfc_peek_ascii_char ();
if (gfc_current_form == FORM_FREE && !gfc_is_whitespace (c))
if (gfc_current_form == FORM_FREE && !gfc_is_whitespace (c) && c != '(')
return MATCH_NO;
/* Before parsing the rest of a DATA statement, check F2008:c1206. */

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2019-08-05 Steven g. Kargl <kargl@gcc.gnu.org>
PR fortran/91372
* gfortran.dg/pr91372.f90: New test.
2019-08-05 Marek Polacek <polacek@redhat.com>
PR c++/91338 - Implement P1161R3: Deprecate a[b,c].

9
gcc/testsuite/gfortran.dg/pr91372.f90 Normal file
View File

@ -0,0 +1,9 @@
! { dg-do compile }
! PR fortran/91372
module module_sf_lake
implicit none
integer, parameter :: r8 = selected_real_kind(12)
integer, private :: i
real(r8) :: sand(2) ! percent sand
data(sand(i), i=1,2)/92.,80./
end module module_sf_lake