Problem Cursor with StandardGraphic

Problem Cursor with StandardGraphic

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

2 posts / 0 new
Last post
For more complete information about compiler optimizations, see our Optimization Notice.

I can reproduce the problem and see the change in behavior between 2011 Update 5 and 2011 Update 6 (the latter is compiler version 12.1). I've escalated this to development as issue DPD200252709 and will let you know of any progress.

Steve - Intel Developer Support

Leave a Comment

Please sign in to add a comment. Not a member? Join today