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