1! { dg-do compile }
2! { dg-options "-std=f2018" }
3!
4! PR88248 - [F18] Bogus warning about obsolescent feature: Labeled DO statement
5!
6program 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
141 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
2399 continue
24end
25
26subroutine foobar ()
27entry bar ()            ! { dg-warning "ENTRY statement" }
28end subroutine foobar
29