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 7module 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 14end 15 16module 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" } 23end 24 25module 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" } 32end 33