1! RUN: %S/test_symbols.sh %s %t %f18 2! Forward references in pointer initializers and TBP bindings. 3 4!DEF: /m Module 5module m 6 implicit none 7 abstract interface 8 !DEF: /m/iface ABSTRACT, PUBLIC (Subroutine) Subprogram 9 subroutine iface 10 end subroutine 11 end interface 12 !DEF: /m/op1 POINTER, PUBLIC ObjectEntity REAL(4) 13 real, pointer :: op1 14 !DEF: /m/op2 POINTER, PUBLIC ObjectEntity REAL(4) 15 !DEF: /m/null INTRINSIC, PUBLIC (Function) ProcEntity 16 real, pointer :: op2 => null() 17 !DEF: /m/op3 POINTER, PUBLIC ObjectEntity REAL(4) 18 !DEF: /m/x PUBLIC, TARGET ObjectEntity REAL(4) 19 real, pointer :: op3 => x 20 !DEF: /m/op4 POINTER, PUBLIC ObjectEntity REAL(4) 21 !DEF: /m/y PUBLIC, TARGET ObjectEntity REAL(4) 22 real, pointer :: op4 => y(1) 23 !REF: /m/iface 24 !DEF: /m/pp1 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 25 procedure(iface), pointer :: pp1 26 !REF: /m/iface 27 !DEF: /m/pp2 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 28 !REF: /m/null 29 procedure(iface), pointer :: pp2 => null() 30 !REF: /m/iface 31 !DEF: /m/pp3 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 32 !DEF: /m/ext1 EXTERNAL, PUBLIC (Subroutine) ProcEntity 33 procedure(iface), pointer :: pp3 => ext1 34 !REF: /m/iface 35 !DEF: /m/pp4 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 36 !DEF: /m/ext2 EXTERNAL, PUBLIC (Subroutine) Subprogram 37 procedure(iface), pointer :: pp4 => ext2 38 !REF: /m/iface 39 !DEF: /m/pp5 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 40 !DEF: /m/ext3 EXTERNAL, PUBLIC (Subroutine) ProcEntity 41 procedure(iface), pointer :: pp5 => ext3 42 !REF: /m/iface 43 !DEF: /m/pp6 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 44 !DEF: /m/modproc1 PUBLIC (Subroutine) Subprogram 45 procedure(iface), pointer :: pp6 => modproc1 46 !DEF: /m/t1 PUBLIC DerivedType 47 type :: t1 48 !DEF: /m/t1/opc1 POINTER ObjectEntity REAL(4) 49 real, pointer :: opc1 50 !DEF: /m/t1/opc2 POINTER ObjectEntity REAL(4) 51 !REF: /m/null 52 real, pointer :: opc2 => null() 53 !DEF: /m/t1/opc3 POINTER ObjectEntity REAL(4) 54 !REF: /m/x 55 real, pointer :: opc3 => x 56 !DEF: /m/t1/opc4 POINTER ObjectEntity REAL(4) 57 !REF: /m/y 58 real, pointer :: opc4 => y(1) 59 !REF: /m/iface 60 !DEF: /m/t1/ppc1 NOPASS, POINTER (Subroutine) ProcEntity 61 procedure(iface), nopass, pointer :: ppc1 62 !REF: /m/iface 63 !DEF: /m/t1/ppc2 NOPASS, POINTER (Subroutine) ProcEntity 64 !REF: /m/null 65 procedure(iface), nopass, pointer :: ppc2 => null() 66 !REF: /m/iface 67 !DEF: /m/t1/ppc3 NOPASS, POINTER (Subroutine) ProcEntity 68 !REF: /m/ext1 69 procedure(iface), nopass, pointer :: ppc3 => ext1 70 !REF: /m/iface 71 !DEF: /m/t1/ppc4 NOPASS, POINTER (Subroutine) ProcEntity 72 !REF: /m/ext2 73 procedure(iface), nopass, pointer :: ppc4 => ext2 74 !REF: /m/iface 75 !DEF: /m/t1/ppc5 NOPASS, POINTER (Subroutine) ProcEntity 76 !REF: /m/ext3 77 procedure(iface), nopass, pointer :: ppc5 => ext3 78 !REF: /m/iface 79 !DEF: /m/t1/ppc6 NOPASS, POINTER (Subroutine) ProcEntity 80 !REF: /m/modproc1 81 procedure(iface), nopass, pointer :: ppc6 => modproc1 82 contains 83 !DEF: /m/t1/b2 NOPASS ProcBinding 84 !REF: /m/ext2 85 procedure, nopass :: b2 => ext2 86 !DEF: /m/t1/b3 NOPASS ProcBinding 87 !REF: /m/ext3 88 procedure, nopass :: b3 => ext3 89 !DEF: /m/t1/b4 NOPASS ProcBinding 90 !REF: /m/modproc1 91 procedure, nopass :: b4 => modproc1 92 end type 93 !DEF: /m/pdt1 PUBLIC DerivedType 94 !DEF: /m/pdt1/k TypeParam INTEGER(4) 95 type :: pdt1(k) 96 !REF: /m/pdt1/k 97 integer, kind :: k 98 !DEF: /m/pdt1/opc1 POINTER ObjectEntity REAL(4) 99 real, pointer :: opc1 100 !DEF: /m/pdt1/opc2 POINTER ObjectEntity REAL(4) 101 !REF: /m/null 102 real, pointer :: opc2 => null() 103 !DEF: /m/pdt1/opc3 POINTER ObjectEntity REAL(4) 104 !REF: /m/x 105 real, pointer :: opc3 => x 106 !DEF: /m/pdt1/opc4 POINTER ObjectEntity REAL(4) 107 !REF: /m/y 108 !REF: /m/pdt1/k 109 real, pointer :: opc4 => y(k) 110 !REF: /m/iface 111 !DEF: /m/pdt1/ppc1 NOPASS, POINTER (Subroutine) ProcEntity 112 procedure(iface), nopass, pointer :: ppc1 113 !REF: /m/iface 114 !DEF: /m/pdt1/ppc2 NOPASS, POINTER (Subroutine) ProcEntity 115 !REF: /m/null 116 procedure(iface), nopass, pointer :: ppc2 => null() 117 !REF: /m/iface 118 !DEF: /m/pdt1/ppc3 NOPASS, POINTER (Subroutine) ProcEntity 119 !REF: /m/ext1 120 procedure(iface), nopass, pointer :: ppc3 => ext1 121 !REF: /m/iface 122 !DEF: /m/pdt1/ppc4 NOPASS, POINTER (Subroutine) ProcEntity 123 !REF: /m/ext2 124 procedure(iface), nopass, pointer :: ppc4 => ext2 125 !REF: /m/iface 126 !DEF: /m/pdt1/ppc5 NOPASS, POINTER (Subroutine) ProcEntity 127 !REF: /m/ext3 128 procedure(iface), nopass, pointer :: ppc5 => ext3 129 !REF: /m/iface 130 !DEF: /m/pdt1/ppc6 NOPASS, POINTER (Subroutine) ProcEntity 131 !REF: /m/modproc1 132 procedure(iface), nopass, pointer :: ppc6 => modproc1 133 contains 134 !DEF: /m/pdt1/b2 NOPASS ProcBinding 135 !REF: /m/ext2 136 procedure, nopass :: b2 => ext2 137 !DEF: /m/pdt1/b3 NOPASS ProcBinding 138 !REF: /m/ext3 139 procedure, nopass :: b3 => ext3 140 !DEF: /m/pdt1/b4 NOPASS ProcBinding 141 !REF: /m/modproc1 142 procedure, nopass :: b4 => modproc1 143 end type 144 !REF: /m/t1 145 !DEF: /m/t1x PUBLIC ObjectEntity TYPE(t1) 146 type(t1) :: t1x 147 !REF: /m/pdt1 148 !DEF: /m/pdt1x PUBLIC ObjectEntity TYPE(pdt1(k=1_4)) 149 type(pdt1(1)) :: pdt1x 150 !REF: /m/x 151 !REF: /m/y 152 real, target :: x, y(2) 153 !REF: /m/ext1 154 external :: ext1 155 !REF: /m/iface 156 !REF: /m/ext3 157 procedure(iface) :: ext3 158 interface 159 !REF: /m/ext2 160 subroutine ext2 161 end subroutine 162 end interface 163 !DEF: /m/op10 POINTER, PUBLIC ObjectEntity REAL(4) 164 !REF: /m/x 165 real, pointer :: op10 => x 166 !DEF: /m/op11 POINTER, PUBLIC ObjectEntity REAL(4) 167 !REF: /m/y 168 real, pointer :: op11 => y(1) 169 !REF: /m/iface 170 !DEF: /m/pp10 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 171 !REF: /m/ext1 172 procedure(iface), pointer :: pp10 => ext1 173 !REF: /m/iface 174 !DEF: /m/pp11 EXTERNAL, POINTER, PUBLIC (Subroutine) ProcEntity 175 !REF: /m/ext2 176 procedure(iface), pointer :: pp11 => ext2 177 !DEF: /m/t2 PUBLIC DerivedType 178 type :: t2 179 !DEF: /m/t2/opc10 POINTER ObjectEntity REAL(4) 180 !REF: /m/x 181 real, pointer :: opc10 => x 182 !DEF: /m/t2/opc11 POINTER ObjectEntity REAL(4) 183 !REF: /m/y 184 real, pointer :: opc11 => y(1) 185 !REF: /m/iface 186 !DEF: /m/t2/ppc10 NOPASS, POINTER (Subroutine) ProcEntity 187 !REF: /m/ext1 188 procedure(iface), nopass, pointer :: ppc10 => ext1 189 !REF: /m/iface 190 !DEF: /m/t2/ppc11 NOPASS, POINTER (Subroutine) ProcEntity 191 !REF: /m/ext2 192 procedure(iface), nopass, pointer :: ppc11 => ext2 193 contains 194 !DEF: /m/t2/b10 NOPASS ProcBinding 195 !REF: /m/ext2 196 procedure, nopass :: b10 => ext2 197 !DEF: /m/t2/b11 NOPASS ProcBinding 198 !REF: /m/ext3 199 procedure, nopass :: b11 => ext3 200 end type 201 !DEF: /m/pdt2 PUBLIC DerivedType 202 !DEF: /m/pdt2/k TypeParam INTEGER(4) 203 type :: pdt2(k) 204 !REF: /m/pdt2/k 205 integer, kind :: k 206 !DEF: /m/pdt2/opc10 POINTER ObjectEntity REAL(4) 207 !REF: /m/x 208 real, pointer :: opc10 => x 209 !DEF: /m/pdt2/opc11 POINTER ObjectEntity REAL(4) 210 !REF: /m/y 211 !REF: /m/pdt2/k 212 real, pointer :: opc11 => y(k) 213 !REF: /m/iface 214 !DEF: /m/pdt2/ppc10 NOPASS, POINTER (Subroutine) ProcEntity 215 !REF: /m/ext1 216 procedure(iface), nopass, pointer :: ppc10 => ext1 217 !REF: /m/iface 218 !DEF: /m/pdt2/ppc11 NOPASS, POINTER (Subroutine) ProcEntity 219 !REF: /m/ext2 220 procedure(iface), nopass, pointer :: ppc11 => ext2 221 contains 222 !DEF: /m/pdt2/b10 NOPASS ProcBinding 223 !REF: /m/ext2 224 procedure, nopass :: b10 => ext2 225 !DEF: /m/pdt2/b11 NOPASS ProcBinding 226 !REF: /m/ext3 227 procedure, nopass :: b11 => ext3 228 end type 229 !REF: /m/t2 230 !DEF: /m/t2x PUBLIC ObjectEntity TYPE(t2) 231 type(t2) :: t2x 232 !REF: /m/pdt2 233 !DEF: /m/pdt2x PUBLIC ObjectEntity TYPE(pdt2(k=1_4)) 234 type(pdt2(1)) :: pdt2x 235contains 236 !REF: /m/modproc1 237 subroutine modproc1 238 end subroutine 239end module 240!DEF: /ext1 (Subroutine) Subprogram 241subroutine ext1 242end subroutine 243!DEF: /ext2 (Subroutine) Subprogram 244subroutine ext2 245end subroutine 246!DEF: /ext3 (Subroutine) Subprogram 247subroutine ext3 248end subroutine 249!DEF: /main MainProgram 250program main 251 !REF: /m 252 use :: m 253 !DEF: /main/pdt1 Use 254 !DEF: /main/pdt1y ObjectEntity TYPE(pdt1(k=2_4)) 255 type(pdt1(2)) :: pdt1y 256 !DEF: /main/pdt2 Use 257 !DEF: /main/pdt2y ObjectEntity TYPE(pdt2(k=2_4)) 258 type(pdt2(2)) :: pdt2y 259 print *, "compiled" 260end program 261