Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/min_max_optional_5.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! More tests for MIN/MAX with optional arguments ! PR33095 ! ! { dg-do run } if (m1(3,4) /= 4) call abort if (m1(3) /= 3) call abort if (m1() /= 2) call abort if (m1(3,4) /= 4) call abort if (m1(3) /= 3) call abort contains integer function m1(a1,a2) integer, optional, intent(in) :: a1, a2 m1 = max(1, 2, a1, a2) end function m1 integer function m2(a1,a2) integer, optional, intent(in) :: a1, a2 m2 = max(1, a1, 2, a2) end function m2 end