gcc/testsuite/gfortran.dg/intrinsic_external_1.f90

   1 ! { dg-do compile }
   2 ! PR fortran/20869
   3 ! Note 12.11 "A name shall not appear in both an EXTERNAL and an
   4 ! INTRINSIC statement in the same scoping unit.
   5 program u
   6   intrinsic :: nint
   7   external :: nint  ! { dg-error "EXTERNAL attribute conflicts with INTRINSIC attribute" }
   8 end program u