re PR fortran/88248 ([F18] Bogus warning about obsolescent feature: Labeled DO statement)

2019-02-14  Harald Anlauf  <anlauf@gmx.de>

	PR fortran/88248
	* symbol.c: Move check for labeled DO statement from
	gfc_define_st_label to gfc_reference_st_label.

	PR fortran/88248
	* gfortran.dg/pr88248.f90: New test.
	* gfortran.dg/f2018_obs.f90: Updated test.

From-SVN: r268895

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 71cef4f188414687c084421f68c9b24a7f397865..bcf885e729ddec7ed9831fe4978b2ee607dcba49 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2019-02-14  Harald Anlauf  <anlauf@gmx.de>
+
+       PR fortran/88248
+       * symbol.c: Move check for labeled DO statement from
+       gfc_define_st_label to gfc_reference_st_label.
+
 2019-02-14  Cesar Philippidis  <cesar@codesourcery.com>
 
        PR fortran/72715

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index b7408ac3f21c1395bc8e7f22d1326f2711a9776e..c8a1f842d353f877e0697162d4f7224c93344b0f 100644 (file)
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -2743,10 +2743,6 @@ gfc_define_st_label (gfc_st_label *lp, gfc_sl_type type, locus *label_locus)
                                  "DO termination statement which is not END DO"
                                  " or CONTINUE with label %d at %C", labelno))
            return;
-         if (type == ST_LABEL_DO_TARGET
-             && !gfc_notify_std (GFC_STD_F2018_OBS, "Labeled DO statement "
-                                 "at %L", label_locus))
-           return;
          break;
 
        default:
@@ -2804,6 +2800,11 @@ gfc_reference_st_label (gfc_st_label *lp, gfc_sl_type type)
                          "Shared DO termination label %d at %C", labelno))
     return false;
 
+  if (type == ST_LABEL_DO_TARGET
+      && !gfc_notify_std (GFC_STD_F2018_OBS, "Labeled DO statement "
+                         "at %L", &gfc_current_locus))
+    return false;
+
   if (lp->referenced != ST_LABEL_DO_TARGET)
     lp->referenced = type;
   rc = true;

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 666e5499c0d3a94c0554e5574d6b63c76df58ee0..61f2a4732c159f33eaf33e434892c3259e63e503 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2019-02-14  Harald Anlauf  <anlauf@gmx.de>
+
+       PR fortran/88248
+       * gfortran.dg/pr88248.f90: New test.
+       * gfortran.dg/f2018_obs.f90: Updated test.
+
 2019-02-14  Tamar Christina  <tamar.christina@arm.com>
 
        * gcc.target/arm/pr88850.c: change options to additional option.

diff --git a/gcc/testsuite/gfortran.dg/f2018_obs.f90 b/gcc/testsuite/gfortran.dg/f2018_obs.f90
index 0a8dca9706a85bf84502c640ca94c3faa0d02af1..d99934b873940f799505fb874061e24c683505a6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/f2018_obs.f90
+++ b/gcc/testsuite/gfortran.dg/f2018_obs.f90
@@ -19,8 +19,8 @@ program f2018_obs
 
   equivalence (a(10),b(1))           ! { dg-warning "obsolescent feature" }
 
-  do 99 i=1,10
-99 continue                          ! { dg-warning "obsolescent feature" }
+  do 99 i=1,10                       ! { dg-warning "obsolescent feature" }
+99 continue
 
   j = (/ 0, 1, 2, 3, 4, 0, 6, 7  /)
   forall (i=1:8, j(i) /= 0)          ! { dg-warning "obsolescent feature" }

diff --git a/gcc/testsuite/gfortran.dg/pr88248.f90 b/gcc/testsuite/gfortran.dg/pr88248.f90
new file mode 100644 (file)
index 0000000..2a49305
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr88248.f90
@@ -0,0 +1,28 @@
+! { dg-do compile }
+! { dg-options "-std=f2018" }
+!
+! PR88248 - [F18] Bogus warning about obsolescent feature: Labeled DO statement
+!
+program pr88248
+  character*80 text     ! { dg-warning "Old-style character length" }
+  f(x) = x              ! { dg-warning "Statement function" }
+  call foo (*99)        ! { dg-warning "Alternate-return argument" }
+  data y / 1.0 /        ! { dg-warning "DATA statement" }
+  goto (1,99) i+1       ! { dg-warning "Computed GOTO" }
+  ! No warning should be printed below
+  goto 1
+1 continue
+  open (10, err=99)
+  close (10, err=99)
+  backspace (10, err=99)
+  endfile (10, err=99)
+  rewind (10, err=99)
+  flush (10, err=99)
+  inquire (10, err=99)
+  read (*, end=99) text
+99 continue
+end
+
+subroutine foobar ()
+entry bar ()            ! { dg-warning "ENTRY statement" }
+end subroutine foobar