12002.f   [plain text]

C      PR middle-end/12002
       COMPLEX TE1
       TE1=-2.
       TE1=TE1+TE1
       END