Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
29553 Discussions

Error@6274

DSChand
Beginner
‎05-15-2026 09:20 PM
41 Views 
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(23): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(24): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(26): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(27): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(28): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(29): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(30): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(31): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(32): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(33): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(35): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(36): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(37): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(38): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(41): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(42): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(44): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(45): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(46): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(47): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(50): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(51): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(53): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(54): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(55): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(56): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(59): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(60): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(61): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(62): error #6274: This statement must not appear in the specification part of a module.
C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90(402): catastrophic error: Too many errors, exiting
compilation aborted for C:\Users\sunda\source\repos\PrenatalConsole\PreNatal.f90 (code 1)
      MODULE msflib
      include 'FGRAPH.FI'
      INCLUDE 'FGRAPH.FD'
      USE IFQWIN
      use IFCORE
      use IFPORT
      RECORD/XYCOORD/XY
      CHARACTER        NAME*20,IM*4,PLACE*20,LM*5,INDEX*4,EAST*4,WEST*4,&
     &NORTH*5,SOUTH*5,AM*2,PM*2,HORZN*5,LIGHT*10,EIM*2,EGIM*2
      INTEGER          D,Y,IH,IMM,IS
      INTEGER*2        FG
      REAL             LOP,LAP,LC,LCT,LOZ,NPLNT,LMT
      DOUBLE PRECISION L,G,F,DM,CM,PL,PF,R,PA,QA,A
      COMMON/C/PL,PF,R
      COMMON/CO/T,E
      COMMON/COM/L(10),G(10),F(10),DM,CM
      COMMON/COMM/PLN,PLA,PRA,PDEC
      DIMENSION PLANT(2,2),NPLNT(2)
      FG=GRAPHICSMODE($TEXTC80)
      DATA EAST,WEST,NORTH,SOUTH,AM,PM/'EAST','WEST','NORTH','SOUTH',&
     &'AM','PM'/
      FG=GRAPHICSMODE()
      CALL CASE()
      CALL HELP()
001   CALL SETTEXTPOSITION(11,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Name:                        EX:Sri Rama Rao) ')
      CALL SETTEXTPOSITION (11,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('                   ')
      CALL SETTEXTPOSITION (13,10,XY)
      CALL COLOR(0,10)
002   CALL OUTTEXT ('Date of Birth                  EX:06/08/1947) ')
      CALL SETTEXTPOSITION (13,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
      CALL SETTEXTPOSITION (15,10,XY)
      CALL COLOR(0,10)
003   CALL OUTTEXT ('Time of Birth                 EX:08 34 43 PM) ')
      CALL SETTEXTPOSITION (15,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('          ')
      CALL SETTEXTPOSITION (17,10,XY)
      CALL COLOR(0,10)
004   CALL OUTTEXT ('Place of Birth                     EX:Guntur) ')
      CALL SETTEXTPOSITION (17,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('                    ')
005   CALL SETTEXTPOSITION(19,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Longitude of Birth Place      EX:081.15 EAST) ')
      CALL SETTEXTPOSITION(19,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
006   CALL SETTEXTPOSITION (21,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Latitude of Birth Place      EX:016.72 NORTH) ')
      CALL SETTEXTPOSITION (21,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
007   CALL SETTEXTPOSITION (23,10,XY)
      CALL COLOR(0,10)
      CALL OUTTEXT ('Longitude of Country          EX:082.50 EAST) ')
      CALL SETTEXTPOSITION (23,49,XY)
      CALL COLOR(10,0)
      CALL OUTTEXT ('            ')
      END
       SUBROUTINE CASE()
       module MSFLIB
!      include 'FGRAPH.FI'
!      INCLUDE 'FGRAPH.FD'
      USE IFQWIN
      CALL COLOR (0,11)
      CALL SETTEXTPOSITION (1,1,XY)    
      CALL OUTTEXT (CHAR(201))
      DO I=1,77
         CALL OUTTEXT (CHAR(205))
      ENDDO
      CALL SETTEXTPOSITION (1,79,XY)
      CALL OUTTEXT (CHAR(187))
      CALL SETTEXTPOSITION (2,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (2,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (3,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (3,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (4,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (4,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (5,1,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (5,79,XY)
      CALL OUTTEXT (CHAR(186))
      CALL SETTEXTPOSITION (6,1,XY)
      CALL OUTTEXT (CHAR(204))
      DO I=1,77
         CALL OUTTEXT (CHAR(205))
      ENDDO
      CALL SETTEXTPOSITION (6,79,XY)
      CALL OUTTEXT (CHAR(185))
      DO  I = 7,24
          CALL SETTEXTPOSITION (I,1,XY)
	  CALL OUTTEXT (CHAR(186))
          CALL SETTEXTPOSITION (I,79,XY)
          CALL OUTTEXT (CHAR(186))
      ENDDO
      CALL SETTEXTPOSITION (25,1,XY)
      CALL OUTTEXT (CHAR(200))
      DO I=1,77
         CALL OUTTEXT (CHAR(205))
      ENDDO
      CALL OUTTEXT (CHAR(188))
      CALL COLOR (0,13) 
      CALL SETTEXTPOSITION (2,32,XY)
      CALL OUTTEXT('P R E N A T A L   E P O C H')
      CALL SETTEXTPOSITION (3,2,XY)
      CALL OUTTEXT('  Copyright (C) 1989 Master Computer Services, Hyderab&
     &ad  (Phone :27000369)  ')
      CALL SETTEXTPOSITION (4,34,XY)
      CALL OUTTEXT('Version 1.0')
      CALL SETTEXTPOSITION (5,28,XY)
      CALL OUTTEXT ('Serial Number : 01-1995')
      RETURN
      END
      SUBROUTINE HELP ()
      INCLUDE 'FGRAPH.FD'
      USE IFQWIN
      RECORD/XYCOORD/XY
      CALL SETTEXTPOSITION(24,2,XY)
      CALL COLOR(13,14)
      CALL OUTTEXT(CHAR(25))
      CALL OUTTEXT(' Scroll Up          ' ) 
      CALL OUTTEXT(CHAR(24))
      CALL OUTTEXT(' Scroll Down          ' ) 
      CALL OUTTEXT('  Esc Escape         ' ) 
      CALL OUTTEXT (CHAR(26))
      CALL OUTTEXT ('Right            ')
      CALL OUTTEXT (CHAR(27))
      CALL OUTTEXT ('Left                ')
      CALL OUTTEXT ('Choose')
      CALL OUTTEXT(CHAR(17))
      CALL OUTTEXT(CHAR(217))
      RETURN 
      END

Build log written to "file://C:/Users/sunda/source/repos/PrenatalConsole/x64/Debug/BuildLog.htm" PrenatalConsole - 31 error(s), 0 warning(s)

Please guide me to solve the above problem as early as possible. I tried my best but utter flop.

0 Kudos

Link Copied

1 Reply
Steve_Lionel
Honored Contributor III
‎05-23-2026 09:09 AM
12 Views

The proximate cause is the first line "MODULE msflib", which says that what follows is a module, but you have a program, so nearly all of the statements are not allowed in the declarations part of a module. Try taking that line out  - it might make sense to have "USE msflib", but given the rest of the source I would say it is not appropriate.

0 Kudos
Copy link
Reply

Community support is provided Monday to Friday. Other contact methods are available here.

Intel does not verify all solutions, including but not limited to any file transfers that may appear in this community. Accordingly, Intel disclaims all express and implied warranties, including without limitation, the implied warranties of merchantability, fitness for a particular purpose, and non-infringement, as well as any warranty arising from course of performance, course of dealing, or usage in trade.

For more complete information about compiler optimizations, see our Optimization Notice.