145
|
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
|