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