! { dg-do compile } ! { dg-options "-std=f95" } ! PR30014 IOLENGTH does not handle KIND=8. This patch checks the constraints. ! Submitted by Jerry DeLisle ! F95 Standard 9.6, R923 integer (kind=4) small, x integer (kind=8) large inquire (iolength=small) x inquire (iolength=large) x ! { dg-error "requires default INTEGER" } end