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