12 lines
337 B
Fortran
12 lines
337 B
Fortran
|
! { dg-do compile }
|
||
|
! Option passed to avoid excess errors from obsolete warning
|
||
|
! { dg-options "-w" }
|
||
|
! PR18827
|
||
|
integer i,j
|
||
|
equivalence (i,j)
|
||
|
assign 1000 to i
|
||
|
write (*, j) ! { dg-error "not been assigned a format label" }
|
||
|
goto j ! { dg-error "not been assigned a target label" }
|
||
|
1000 continue
|
||
|
end
|