Intel Graphics Software Display Troubles-Reg

[DSChand]

I am using Intel Standalone Fortran Compiler 2025.3 version with Microsoft Visual studio 2026 latest version, Windows 11,64 bit acer laptop with AMD Graphics card.

1.It is not giving a proper result because the below source code.

Output displaying binary/hexadecimal symbols not giving a double line box generating.

 2. Another trouble is only output coming with the half screen only. Why I am not getting full screen output.

3. I have updated my code page to @chcp 437 >nul.

Even though the double lined box not displaying.

Please let me know what is my fault in the below source code. It is a sample source code in the sample program.

Errors given below for your ready reference after compilation:

1.This is an incorrect value for a kind type parameter in this context -UCS4- Line no.31
2.This is an incorrect value for a kind type parameter in this context- Line no.31
3.This is an incorrect value for a kind type parameter in this context- Line no.32
4.This is an incorrect value for a kind type parameter in this context - Line no.33
5.This is an incorrect value for a kind type parameter in this context - Line no.34
6.This is an incorrect value for a kind type parameter in this context - Line no.35
7.This is an incorrect value for a kind type parameter in this context - Line no.36
8. This name doesn’t have a type, and must have an explicit type -cornernw- Line No.45
9.The data type of the arguments are invalid -repeat -Line No.46
10.This name doesn’t have a type, and must have an explicit type -hline- Line No.46
11.This name doesn’t have a type, and must have an explicit type -cornerne- Line No.47
12.This name doesn’t have a type, and must have an explicit type -vline- Line No.50
13.This name doesn’t have a type, and must have an explicit type -cornersw- Line No.53
14.The data type of the arguments are invalid -repeat -Line No.54
15.This name doesn’t have a type, and must have an explicit type -cornerse- Line No.55

Please help me as early as possible to solve the below mentioned topic.

Source Code given below:

use, intrinsic :: iso_fortran_env, only: output_unit
implicit none

integer, parameter :: ucs4 = selected_char_kind(‘ISO_10646’)

! Defining UTF-8 box drawing characters:
! char dec hex
! ‘─’ 9472 0x2500
! ‘│’ 9474 0x2502
! ‘┌’ 9484 0x250C
! ‘┐’ 9488 0x2510
! ‘└’ 9492 0x2514
! ‘┘’ 9496 0x2518

! char dec
! ‘═’ 9552
! ‘║’ 9553
! ‘╔’ 9556
! ‘╗’ 9559
! ‘╚’ 9562
! ‘╝’ 9565
! ‘╠’ 9568
! ‘╣’ 9571
! ‘╦’ 9574
! ‘╩’ 9577
! ‘╬’ 9580

character(kind=ucs4, len=), parameter :: dhline = char(9552,kind=ucs4)
character(kind=ucs4, len=), parameter :: dvline = char(9553,kind=ucs4)
character(kind=ucs4, len=), parameter :: dcornerNW = char(9556,kind=ucs4)
character(kind=ucs4, len=), parameter :: dcornerNE = char(9559,kind=ucs4)
character(kind=ucs4, len=), parameter :: dcornerSW = char(9562,kind=ucs4)
character(kind=ucs4, len=), parameter :: dcornerSE = char(9565,kind=ucs4)
integer :: box_size
integer :: line
open(output_unit, encoding=‘utf-8’)
write(, ‘(a)’, advance=‘no’) 'Enter box size: ’
read (, ‘(i3)’) box_size
print ‘(a,i0,a)’, ‘Printing a box of size ‘, box_size, ‘.’
do line = 1, box_size
if (line == 1) then
write(,‘(a)’,advance=‘no’) cornerNW
write(,’(a)’,advance=‘no’) repeat(hline, box_size - 2)
write(,‘(a)’,advance=‘yes’) cornerNE
end if
if ((line > 1) .and. (line < box_size)) then
write(,‘(a,a,a)’) vline, repeat(’ ‘, box_size - 2), vline
end if
if (line == box_size) then
write(,‘(a)’,advance=‘no’) cornerSW
write(,’(a)‘,advance=‘no’) repeat(hline, box_size - 2)
write(*,’(a)',advance=‘yes’) cornerSE
end if
end do
end

[Steve_Lionel]

I see two immediate problems. 1) Intel Fortran does not support ISO_10646, 2) you need to say len=* in the PARAMETER declarations, not just len=.  But the first problem is a roadblock for you.

[DSChand · Accepted solution]

Ok Thanks for your early and fast response.

For simple test source code given below 

      USE IFQWIN
      TYPE (rccoord) curpos
      include 'FGRAPH.FI'
      integer D,M,Y     

                call settextposition(Int2(),Int2(),curpos)

      CALL OUTTEXT ('Date of Birth                  EX:06/08/1947) ')

call settextposition(Int2(13),Int2(49),curpos)

               CALL OUTTEXT ('         ')

                end

               This above mentioned simple test program also not working the graphics part. Nothing is print on the screen. How can I solve this simple program? What is my fault in the program?

Please help me to resolve this simple and easy method.

[DSChand]

For simple test source code given below 

      USE IFQWIN
      TYPE (rccoord) curpos
      include 'FGRAPH.FI'
      integer D,M,Y     

                call settextposition(Int2(),Int2(),curpos)

      CALL OUTTEXT ('Date of Birth                  EX:06/08/1947) ')

call settextposition(Int2(13),Int2(49),curpos)

               CALL OUTTEXT ('         ')

                end

               This above mentioned simple test program also not working the graphics part. Nothing is print on the screen. How can I solve this simple program? What is my fault in the program?

Please help me to resolve this simple and easy method.

My Laptop configuration given below for your ready reference:

1.Acer Aspire lte Al 15-41 Laptop; 

For simple test source code given below 

      USE IFQWIN
      TYPE (rccoord) curpos
      include 'FGRAPH.FI'
      integer D,M,Y     

                call settextposition(Int2(),Int2(),curpos)

      CALL OUTTEXT ('Date of Birth                  EX:06/08/1947) ')

call settextposition(Int2(13),Int2(49),curpos)

               CALL OUTTEXT ('         ')

                end

               This above mentioned simple test program also not working the graphics part. Nothing is print on the screen. How can I solve this simple program? What is my fault in the program?

Please help me to resolve this simple and easy method.

My Laptop details given below for your ready reference.:

1.Acer Aspire Lite Al-15-41 Model ACPI X64 Based PC

2. OS Windows 11

3.Display Adapter : AMD Radeon (TM) Graphics

4. Integrated Monitor

5.AMD Ryzen 3 5300U with Radeon Graphics