14 lines
312 B
Fortran
14 lines
312 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fimplicit-none" }
|
|
!
|
|
! PR 41121: [4.5 Regression] compile-time error when building BLAS with -fimplicit-none
|
|
!
|
|
! Original test case: http://www.netlib.org/blas/dgbmv.f
|
|
! Reduced by Joost VandeVondele <jv244@cam.ac.uk>
|
|
|
|
INTRINSIC MIN
|
|
INTEGER :: I,J
|
|
print *,MIN(I,J)
|
|
END
|
|
|