52   pure subroutine ps1(dummy1, dummy2, dummy3, dummy4)  argument
60     real, pointer :: dummy3  local
74     x1 = t1(0)(dummy3)
108       x1a = t1(0)(dummy3)
123   pure integer function pf1(dummy3)
124     real, pointer :: dummy3  local
128     x1 = t1(0)(dummy3)
134       x1a = t1(0)(dummy3)
139   impure real function ipf1(dummy1, dummy2, dummy3, dummy4)
147     real, pointer :: dummy3  local
158     x1 = t1(0)(dummy3)