gcc/testsuite/gfortran.dg/binding_label_tests_26b.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 58182: [4.9 Regression] ICE with global binding name used as a FUNCTION
   4 !
   5 ! Contributed by Andrew Bensons <abensonca@gmail.com>
   6 !
   7 ! This file must be compiled AFTER binding_label_tests_26a.f90, which it
   8 ! should be because dejagnu will sort the files.
   9
  10 module f    ! { dg-error "uses the same global identifier" }
  11   use fg    ! { dg-error "uses the same global identifier" }
  12 end module
  13
  14 ! { dg-final { cleanup-modules "fg f" } }