Hi, the following invalid code shows that gfortran does not reject bad kinds for logicals:
program gfcbug57 implicit none ! ! These are logical kinds known by gfortran and many other compilers: ! print *, kind (.true._1) ! This prints "1" print *, kind (.true._2) ! This prints "2" print *, kind (.true._4) ! This prints "4" print *, kind (.true._8) ! This prints "8" ! ! These are very strange (read: bad (invalid?)) logical kinds, ! handled inconsistently by gfortran (there's no logical(kind=0) etc.) ! print *, kind (.true._0) ! This prints "0" print *, kind (.true._3) ! This prints "3" print *, kind (.true._123) ! This prints "123" ! ! Here gfortran bails out with a runtime error: ! print *, .true._3 ! "Internal Error: bad integer kind" end program gfcbug57 Cheers, -ha -- Summary: Inconsistent handling of bad (invalid) LOGICAL kinds Product: gcc Version: 4.3.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: anlauf at gmx dot de GCC host triplet: i686-pc-linux-gnu http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30799