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