$ cat > a.f90
program test 
     integer, dimension(:), allocatable :: x 
     allocate(x(10)) 
     call use_array(x) 
contains 
     subroutine use_array(x) 
     integer, dimension(:), intent(in) :: x 
     integer, dimension(20) :: y 
     y = x 
     end subroutine use_array 
end program 

$ gfortran -fbounds-check a.f90 && ./a.out
At line 9 of file a.f90
Fortran runtime error: Array bound mismatch, size mismatch for dimension 1 of
array 'y' (19/9)


-- 
           Summary: Off-by-one runtime bounds checking message
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Keywords: diagnostic
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36029

Reply via email to