[Bug fortran/27035] New: present doesn't work on array

[hjl at lucon dot org]

[EMAIL PROTECTED] cpu2006-465e]$ cat foo.f90
program main
  call foo (5)
end program main

subroutine foo(n, a)
  integer :: n
  integer, dimension(5), optional :: a
  print *, n
  if (present (a)) call abort ()
end subroutine foo
[EMAIL PROTECTED] cpu2006-465e]$
/export/build/gnu/gcc/build-x86_64-linux/gcc/gfortran
-B/export/build/gnu/gcc/build-x86_64-linux/gcc/ -g -o foo foo.f90
-Wl,-rpath,/usr/gcc-4.2/lib64
[EMAIL PROTECTED] cpu2006-465e]$ ./foo
           5
Aborted
[EMAIL PROTECTED] cpu2006-465e]$ make zzz
/export/build/gnu/gcc/build-x86_64-linux/gcc/gfortran
-B/export/build/gnu/gcc/build-x86_64-linux/gcc/ -g -o zzz zzz.f90
-Wl,-rpath,/usr/gcc-4.2/lib64
[EMAIL PROTECTED] cpu2006-465e]$ ./zzz
Segmentation fault
[EMAIL PROTECTED] cpu2006-465e]$


-- 
           Summary: present doesn't work on array
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: hjl at lucon dot org


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