1! PR middle-end/33074 2! { dg-do compile } 3! { dg-options "-O" } 4 5subroutine pr33074(a, w) 6 real a(1), w(1) 7 a(1) = 2.0**int(w(1)) 8end 9