1! { dg-do compile } 2! PR fortran/67803 3! Original code submitted by Gerhard Steinmetz 4! <gerhard dot steinmetz dot fortran at t-online dot de > 5! 6program p 7 character(2) :: x(1) 8 x = '0' // [character :: 1] ! { dg-error "Incompatiable typespec for" } 9 x = '0' // [character :: 1.] ! { dg-error "Incompatiable typespec for" } 10 x = '0' // [character :: 1d1] ! { dg-error "Incompatiable typespec for" } 11 x = '0' // [character :: (0.,1.)] ! { dg-error "Incompatiable typespec for" } 12 x = '0' // [character :: .true.] ! { dg-error "Incompatiable typespec for" } 13 x = '0' // [character :: null()] ! { dg-error "Incompatiable typespec for" } 14end 15