nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / do_check_16.f90
blobdb0d45cb581b7cff3c4c275fa0e9f60439a87d4a
1 ! { dg-do compile }
2 program main
3 implicit none
4 integer :: iq,nq,recl
5 DO iq = 1, nq
6 call foobar ! { dg-error "redefined" }
7 ENDDO
8 CONTAINS
10 subroutine foobar
11 inquire (iolength=nq) iq ! { dg-error "redefined" }
12 end subroutine foobar
13 END program main