1! { dg-do compile }
2!
3! PR 44595: INTENT of arguments to intrinsic procedures not checked
4!
5! Contributed by Steve Kargl <kargl@gcc.gnu.org>
6
7subroutine reset_seed(iseed)
8    implicit none
9    integer, intent(in) :: iseed
10    call random_seed(iseed)        ! { dg-error "cannot be INTENT.IN." }
11end subroutine reset_seed
12