When compiling the short code below with IFORT /libs=qwins Test.F90 the cursor after READ doesn't appear, when a compiler version higher than 2011 Update 5 (package 221) is used. (with /libs=qwin no problems). Is there a way to get the cursor when compiling with versions higher than 2011 update 5?
! Compiler options: /libs:qwin --> QuickWin ; /libs:qwins --> StandardGraphic
PROGRAM TESR
USE IFQWIN
IMPLICIT NONE
INTEGER*2 L
INTEGER K
TYPE(WINDOWCONFIG) SCREEN
! MAX. RESOLUTION
SCREEN.NUMXPIXELS=-1; SCREEN.NUMYPIXELS=-1
SCREEN.NUMTEXTCOLS=-1; SCREEN.NUMTEXTROWS=-1
SCREEN.NUMCOLORS=-1
SCREEN.FONTSIZE=-1
SCREEN.TITLE= " "C
K=SETWINDOWCONFIG(SCREEN)
! Terminates the application without displaying a message box
K=SETEXITQQ(QWIN$EXITNOPERSIST)
! CURSOR 1/4 HIGHT, CURSOR ON
L=SETTEXTCURSOR(Z'0802')
L=DISPLAYCURSOR($GCURSORON)
L=INITIALIZEFONTS( )
11 WRITE(6,'(//'' TEST > '',$)')
READ(5,'(I5)',ERR=11) K
END PROGRAM SPIPLO
