2 ! Test the patch for PR30081 in which non-generic intrinsic
3 ! procedures could not be overloaded by generic interfaces.
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
9 module procedure put_seed
11 interface random_number
12 module procedure random_vector
18 subroutine put_seed (n, seed)
19 integer, intent(inout) :: n
20 integer, intent(in) :: seed
21 call random_seed (size=n)
22 end subroutine put_seed
23 subroutine random_vector (t)
25 call random_number (t% x)
26 end subroutine random_vector
31 integer :: n = 2, seed = 1
32 call put_seed (n, seed)
33 call random_number (z)
36 ! { dg-final { cleanup-modules "gfcbug46" } }