! { dg-do run } | |
! { dg-shouldfail "negative NCOPIES argument to REPEAT intrinsic" } | |
character(len=80) :: str | |
integer :: i | |
i = -1 | |
write(str,"(a)") repeat ("a", f()) | |
if (trim(str) /= "aaaa") call abort | |
write(str,"(a)") repeat ("a", i) | |
contains | |
integer function f() | |
integer :: x = 5 | |
save x | |
x = x - 1 | |
f = x | |
end function f | |
end | |
! { dg-output "Fortran runtime error: Argument NCOPIES of REPEAT intrinsic is negative .* line 6)" |