blob: ee16e18a8bb1c5df20600f37fa27215648d88538 [file] [log] [blame]
! { dg-do compile }
! PR fortran/34536 -- unary operators following arithmetic ones
real :: x
x = 2.0 ** -3 * 5 ! { dg-warning "Unary operator following arithmetic operator" }
end