blob: a9586fb1d1215258acb00b00110d95943955a9f0 [file] [log] [blame]
! { dg-do compile }
! PR 54633 - this used to be rejected
program main
integer :: x(minval((/1/),mask=(/.TRUE./)))
integer, parameter :: m = minval((/1/))
integer :: y(minval((/1/),mask=(/.TRUE./)))
end