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
10contains
11
12  integer function f()
13    integer :: x = 5
14    save x
15
16    x = x - 1
17    f = x
18  end function f
19end
20! { dg-output "Fortran runtime error: Argument NCOPIES of REPEAT intrinsic is negative \\(its value is -1\\)" }
21