3 ! Original code submitted by Gerhard Steinmetz
4 ! <gerhard dot steinmetz dot fortran at t-online dot de >
8 x
= '0' // [character :: 1] ! { dg-error "Incompatible typespec for" }
9 x
= '0' // [character :: 1.] ! { dg-error "Incompatible typespec for" }
10 x
= '0' // [character :: 1d1] ! { dg-error "Incompatible typespec for" }
11 x
= '0' // [character :: (0.,1.)] ! { dg-error "Incompatible typespec for" }
12 x
= '0' // [character :: .true
.] ! { dg-error "Incompatible typespec for" }