1! { dg-do compile } 2! PR fortran/67802 3! Original code contribute by gerhard.steinmetz.fortran at t-online.de 4program p 5 character(1.) :: c1 = ' ' ! { dg-error "INTEGER expression expected" } 6 character(1d1) :: c2 = ' ' ! { dg-error "INTEGER expression expected" } 7 character((0.,1.)) :: c3 = ' ' ! { dg-error "INTEGER expression expected" } 8 character(.true.) :: c4 = ' ' ! { dg-error "INTEGER expression expected" } 9end program p 10