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