25 lines
501 B
Fortran
25 lines
501 B
Fortran
! PR fortran/17229
|
|
! { dg-do run }
|
|
|
|
integer i
|
|
logical l
|
|
|
|
l = .false.
|
|
i = -1
|
|
if (l) if (i) 999,999,999 ! { dg-warning "Obsolescent feature" }
|
|
|
|
l = .true.
|
|
if (l) if (i) 10,999,999 ! { dg-warning "Obsolescent feature" }
|
|
go to 999
|
|
|
|
10 i = 0
|
|
if (l) if (i) 999,20,999 ! { dg-warning "Obsolescent feature" }
|
|
go to 999
|
|
|
|
20 i = 1
|
|
if (l) if (i) 999,999,30 ! { dg-warning "Obsolescent feature" }
|
|
go to 999
|
|
|
|
999 call abort
|
|
30 end
|