blob: a9586fb1d1215258acb00b00110d95943955a9f0 (
plain)
1
2
3
4
5
6
7
|
! { 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
|