2 ! Testcase for PR libfortran/25068
5 open (10,status
="scratch")
6 read (10,*,iostat
=i
) u
! { dg-warning "Fortran 2003: Non-default integer kind in IOSTAT tag" }
7 close (10,iostat
=i
) ! { dg-warning "Fortran 2003: Non-default integer kind in IOSTAT tag" }