gcc/testsuite/gfortran.dg/repeat_1.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "negative NCOPIES argument to REPEAT intrinsic" }
   3   character(len=80) :: str
   4   integer :: i
   5   i = -1
   6   write(str,"(a)") repeat ("a", f())
   7   if (trim(str) /= "aaaa") call abort
   8   write(str,"(a)") repeat ("a", i)
   9
  10 contains
  11
  12   integer function f()
  13     integer :: x = 5
  14     save x
  15
  16     x = x - 1
  17     f = x
  18   end function f
  19 end
  20 ! { dg-output "Fortran runtime error: Argument NCOPIES of REPEAT intrinsic is negative .* line 6)"