1! { dg-do compile } 2! PR fortran/50524 3! 4program foo 5 print *, 'abc'(2.e0:3) ! { dg-error "must be of type INTEGER" } 6 print *,'qwe'(1:1e0) ! { dg-error "must be of type INTEGER" } 7end program foo 8 9