! { dg-do compile } | |
! { dg-options "-fdec" } | |
! | |
! Modified by Mark Eggleston <mark.eggleston@codethink.com> | |
! | |
program test | |
integer(4) :: a | |
real(4) :: b | |
complex(4) :: c | |
logical(4) :: d | |
a = 4_'1234' ! { dg-error "Cannot convert CHARACTER\\(4,4\\) to" } | |
b = 4_'12' ! { dg-error "Cannot convert CHARACTER\\(2,4\\) to" } | |
c = 4_'12341234' ! { dg-error "Cannot convert CHARACTER\\(8,4\\) to" } | |
d = 4_'abcd' ! { dg-error "Cannot convert CHARACTER\\(4,4\\) to" } | |
end program | |