?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git] / gcc / testsuite / gfortran.dg / intrinsic_bounds_1.f90
bloba9586fb1d1215258acb00b00110d95943955a9f0
1 ! { dg-do compile }
2 ! PR 54633 - this used to be rejected
3 program main
4 integer :: x(minval((/1/),mask=(/.TRUE./)))
5 integer, parameter :: m = minval((/1/))
6 integer :: y(minval((/1/),mask=(/.TRUE./)))
7 end
Mirror of the offical gcc git repository hosted at gcc.gnu.org