PR fortran/45794
* gfortran.dg/optional_mask.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@166687
138bc75d-0d04-0410-961f-
82ee72b054a4
+2010-11-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/45794
+ * gfortran.dg/optional_mask.f90: New test.
+
2010-11-13 Ville Voutilainen <ville.voutilainen@gmail.com> <ville.voutilainen@symbio.com>
* g++.dg/cpp0x/defaulted15.C: Adjust.
--- /dev/null
+! { dg-do compile }
+! Bug 45794 - ICE: Segmentation fault in gfc_conv_procedure_call
+subroutine foo (vector, mask)
+ real :: vector(:)
+ logical, optional :: mask(:)
+ integer :: loc(1)
+ if (present(mask)) then
+ loc = maxloc(vector, mask)
+ end if
+end subroutine