2 ! { dg-options "-std=f95" }
3 ! PR30014 IOLENGTH does not handle KIND=8. This patch checks the constraints.
4 ! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
5 ! F95 Standard 9.6, R923
6 integer (kind=4) small, x
8 inquire (iolength=small) x
9 inquire (iolength=large) x ! { dg-error "requires default INTEGER" }