* config/pa/linux-atomic.c (__kernel_cmpxchg): Reorder arguments to
[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / compile / mloc.f90
blob8d1d754f585a32b98b84544fbabcb199caedc998
1 ! from PR 14928
2 ! we used to not accept the two argument variant of MINLOC and MAXLOC when
3 ! the MASK keyword was omitted.
4 real b(10)
5 integer c(1)
6 c = minloc(b,b<0)
7 c = maxloc(b,b>0)
8 end