blob: eebb87922bd43e4210b4232feb5ea0eb9bf23eda (
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 }
! { dg-options "-O2" }
!
! Tests the fix for PR80965 in which the use of the name 'loc'
! for the dummy argument of 'xyz' caused an ICE. If the module
! was used, the error "DUMMY attribute conflicts with INTRINSIC
! attribute in ‘loc’ at (1)" was emitted. Note that although 'loc'
! is a GNU extension and so can be over-ridden, this is not very
! good practice.
!
! Contributed by David Sagan <david.sagan@gmail.com>
!
module mode3_mod
contains
subroutine xyz (loc)
implicit none
class(*) :: loc
real x(6)
integer ix_use
select type (loc)
type is (integer)
x = 0
print *, "integer"
type is (real)
ix_use = 0
print *, "real"
end select
end subroutine xyz
end module mode3_mod
|
