blob: 542bba0820e868877626bc576c7bbd42b36b25dd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|