gcc/testsuite/gfortran.dg/min0_max0_2.f90 - gcc - Git at Google

 ! { dg-do compile }
 ! { dg-options "-fdefault-integer-8 -std=gnu" }
 ! PR fortran/101123

 SUBROUTINE TEST
   IMPLICIT INTEGER*4 (I-N)
   MAXMN=MAX0(M,N)
   MINMN=MIN0(M,0_4)
   MAXRS=MAX1(R,S)
 END SUBROUTINE TEST
	! { dg-do compile }
	! { dg-options "-fdefault-integer-8 -std=gnu" }
	! PR fortran/101123

	SUBROUTINE TEST
	IMPLICIT INTEGER*4 (I-N)
	MAXMN=MAX0(M,N)
	MINMN=MIN0(M,0_4)
	MAXRS=MAX1(R,S)
	END SUBROUTINE TEST