1 2 3 4 5 6
# { dg-options "-fstropping=upper" } # BEGIN PROC a = REAL: b := c; REAL b := 1, c := 2; REAL x := a; SKIP END