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