blob: 47a5df9e894f4beef309f79cb486bb2d18c9cd3d (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
module m
contains
subroutine s
print *, (erfc) ! { dg-error "not a floating constant" "" { target i?86-*-* x86_64-*-* sparc*-*-* cris-*-* } }
end ! { dg-error "not a floating constant" "" { target { ! "i?86-*-* x86_64-*-* sparc*-*-* cris-*-*" } } }
function erfc()
end
end
|
