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