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