2 ! { dg-shouldfail "negative NCOPIES argument to REPEAT intrinsic" }
3 character(len=80) :: str
6 write(str,"(a)") repeat ("a", f())
7 if (trim(str) /= "aaaa") call abort
8 write(str,"(a)") repeat ("a", i)
20 ! { dg-output "Fortran runtime error: Argument NCOPIES of REPEAT intrinsic is negative .* line 6)"