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