1! { dg-do compile } 2! { dg-options "-fimplicit-none" } 3! 4! PR 41121: [4.5 Regression] compile-time error when building BLAS with -fimplicit-none 5! 6! Original test case: http://www.netlib.org/blas/dgbmv.f 7! Reduced by Joost VandeVondele <jv244@cam.ac.uk> 8 9 INTRINSIC MIN 10 INTEGER :: I,J 11 print *,MIN(I,J) 12END 13 14