gcc/testsuite/gfortran.dg/intrinsic_6.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fimplicit-none" }
   3 !
   4 ! PR 45748: [4.5/4.6 Regression] -fimplicit-none failures when using intrinsic MAX
   5 !
   6 ! Contributed by Themos Tsikas <themos.tsikas@gmail.com>
   7
   8 SUBROUTINE BUG(WORK)
   9   INTRINSIC MAX
  10   DOUBLE PRECISION WORK(MAX(2,3))
  11 END