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