[AArch64] SVE tests
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr33074.f90
blob3538d6588c465d97dc557a7d0a22e6c64dfe9dff
1 ! PR middle-end/33074
2 ! { dg-do compile }
3 ! { dg-options "-O" }
5 subroutine pr33074(a, w)
6 real a(1), w(1)
7 a(1) = 2.0**int(w(1))
8 end