1! { dg-do compile } 2! PR 56519 - flag impure intrinsic subroutine calls 3! within DO CONCURRENT 4program main 5 implicit none 6 integer :: i 7 real :: array(123), val 8 9 do concurrent (i = 1:123) 10 call random_number (val) ! { dg-error "is not PURE" } 11 array(i) = val 12 end do 13end program main 14