gcc/testsuite/gfortran.dg/random_5.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "" }
   3 !
   4 program trs
   5   implicit none
   6   integer :: size
   7   integer :: seed(50)
   8   call test_random_seed(size,seed)
   9 contains
  10   subroutine test_random_seed(size, put, get)
  11     integer, optional :: size
  12     integer, dimension(:), optional :: put
  13     integer, dimension(:), optional :: get
  14     call random_seed(size, put, get)
  15   end subroutine test_random_seed
  16 end program trs
  17 ! { dg-output "Fortran runtime error: RANDOM_SEED should have at most one argument present.*" }