gcc/testsuite/gfortran.dg/pr88248.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2018" }
   3 !
   4 ! PR88248 - [F18] Bogus warning about obsolescent feature: Labeled DO statement
   5 !
   6 program pr88248
   7   character*80 text     ! { dg-warning "Old-style character length" }
   8   f(x) = x              ! { dg-warning "Statement function" }
   9   call foo (*99)        ! { dg-warning "Alternate-return argument" }
  10   data y / 1.0 /        ! { dg-warning "DATA statement" }
  11   goto (1,99) i+1       ! { dg-warning "Computed GOTO" }
  12   ! No warning should be printed below
  13   goto 1
  14 1 continue
  15   open (10, err=99)
  16   close (10, err=99)
  17   backspace (10, err=99)
  18   endfile (10, err=99)
  19   rewind (10, err=99)
  20   flush (10, err=99)
  21   inquire (10, err=99)
  22   read (*, end=99) text
  23 99 continue
  24 end
  25
  26 subroutine foobar ()
  27 entry bar ()            ! { dg-warning "ENTRY statement" }
  28 end subroutine foobar