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