! { dg-do compile } | |
! | |
! Test case contributed by Mark Eggleston <mark.eggleston@codethink.com> | |
program test | |
integer(4) :: x | |
x = x // "rubbish" ! { dg-error "INTEGER\\(4\\)/CHARACTER\\(7\\)" } | |
x = 4_"more rubbish" + 6 ! { dg-error "CHARACTER\\(12,4\\)/INTEGER\\(4\\)" } | |
end program |