gcc/testsuite/gfortran.dg/interface_abstract_5.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 71861: [7/8/9 Regression] [F03] ICE in write_symbol(): bad module symbol
   4 !
   5 ! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
   6
   7 module m1
   8    intrinsic abs
   9    abstract interface
  10       function abs(x)    ! { dg-error "ABSTRACT attribute conflicts with INTRINSIC attribute" }
  11          real :: abs, x
  12       end
  13    end interface
  14 end
  15
  16 module m2
  17    abstract interface
  18       function abs(x)
  19          real :: abs, x
  20       end
  21    end interface
  22    intrinsic abs    ! { dg-error "ABSTRACT attribute conflicts with INTRINSIC attribute" }
  23 end
  24
  25 module m3
  26    abstract interface
  27       function f(x)
  28          real :: f, x
  29       end
  30    end interface
  31    intrinsic f    ! { dg-error "ABSTRACT attribute conflicts with INTRINSIC attribute" }
  32 end