blob: aa3f5138a6c905d4e46c0e3a5de998807b46247e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! { dg-do compile }
module m
implicit none
integer :: A
integer, parameter :: PARM = 5 ! { dg-warning "Using parameter 'parm' declared at .1. is deprecated" }
!GCC$ ATTRIBUTES DEPRECATED :: A, foo, func, parm
contains
subroutine foo
end
integer function func()
func = 42
end
subroutine bar
integer :: i
call foo ! { dg-warning "Using subroutine 'foo' at .1. is deprecated" }
print *, A ! { dg-warning "Using variable 'a' at .1. is deprecated" }
i = func() ! { dg-warning "Using function 'func' at .1. is deprecated" }
print *, PARM
end
end module m
use m ! { dg-warning "Using parameter 'parm' declared at .1. is deprecated" }
integer :: i
call foo ! { dg-warning "Using subroutine 'foo' at .1. is deprecated" }
print *, A ! { dg-warning "Using variable 'a' at .1. is deprecated" }
i = func() ! { dg-warning "Using function 'func' at .1. is deprecated" }
print *, PARM
end
|