! { dg-do run }
! { dg-options "-ffrontend-optimize" }
! PR 53148 - this used to cause wrong code because the label was
! placed after the statement assigning the new variables.
program main
  integer :: n
  double precision x
  n = 3
  goto 100
100 x = dble(n) + dble(n)
  if (x /= 6.d0) STOP 1
end program main