2 ! Tests the fix for a further regression caused by the
3 ! fix for PR28788, as noted in reply #9 in the Bugzilla
4 ! entry by Martin Reinecke <martin@mpa-garching.mpg.de>.
5 ! The problem was caused by certain types of references
6 ! that point to a deleted derived type symbol, after the
7 ! type has been associated to another namespace. An
8 ! example of this is the specification expression for x
9 ! in subroutine foo below. At the same time, this tests
10 ! the correct association of typeaa between a module
11 ! procedure and a new definition of the type in MAIN.
25 type(typea
) :: it
= typea(2)
28 !------------------------------
31 use types
, only
: typea
, it
45 !------------------------------
46 use global
, only
: typea
, foo
56 if (any (x
.ne
. (/42.0, 42.0, -42.0, -42.0/))) STOP 1
57 if (cam
%i
.ne
. 99) STOP 2