Subject: Re: Version 1.50

From: Zheng Gengbing <[email-masked]>
Date: Sun, 12 May 1996 09:45:31 +0800 (EAT)

On Sat, 11 May 1996, Guansong Zhang wrote:

> dbx info on hpfsc in 1.50 for test1.f
> 
> % dbx /tmp_mnt/home/R4D/zgs/Project/front/syr/frontend/src/hpfsc/hpfsc
> dbx Version 3.1.
> Type 'help' for help.
> reading symbolic information ...
> 
> (dbx) run test1.dep
> 
> hpfsc: line 291 error 478:component of a sequential derived type must be a
> sequential type
> hpfsc: line 291 error 478:component of a sequential derived type must be a
> sequential type
> hpfsc: line 297 error 478:component of a sequential derived type must be a
> sequential type
> hpfsc: line 447 error 446:'fun3' should be an function name
> hpfsc: line 458 error 446:'sqrt' should be an function name
> hpfsc: line 513 error 443:attribute specification error
> hpfsc: line 840 error 192:Constant expression expected in initialization
> expression .
> hpfsc: line 840 error 192:Constant expression expected in initialization
> expression .
> hpfsc: line 1299 error 190:Only array of pointer or allocatable attributes can
> be allocated .
> hpfsc: line 1306 error 190:Only array of pointer or allocatable attributes can
> be allocated .
> hpfsc: line 1340 error 103:Type not match !
> hpfsc: line 1340 error 103:Type not match !
> hpfsc: line 1382 error 125:In array section ,exactly one rank is allowed !
> hpfsc: line 1441 error 580:cannot omit keyword
> hpfsc: line 1567 error 585:inquire stmt must include keyword "unit" or "file"
> hpfsc: line 1579 error 582:keyword 'name' : type mismatched with grammar
> hpfsc: line 1709 error 136:Variable cannot be assigned by a nonPOINTER
> attribute .
> hpfsc: line 1836 error 582:keyword 'unit' : type mismatched with grammar
> hpfsc: line 1739 warning 143:Label : 1340 is  defined but never used .
> hpfsc: line 1859 warning 143:Label : 1160 is  defined but never used .
> hpfsc: line 1877 warning 143:Label : 1350 is  defined but never used .
> hpfsc: line 2240 error 443:attribute specification error
> 
> segmentation violation in lookupSymb at line 206 in file "makesymb.c"
> could not read "makesymb.c"
> 
> (dbx) where
> 
> lookupSymb(string = "_NONE_NAME", symb = 0x7c020000), line 206 in "makesymb.c"
> makeSymb(fi = 0x2005c478, scope = (nil), node_type = 523, string =
> "_NONE_NAME", decl = 1), line 238 in "makesymb.c"
> check_block_data(), line 37 in "ym.c"
> check_specification_stmt(cur_bfnd = 0x20072d1c), line 485 in "hpfsc.c"
> check_one_program_unit(unit_hdr = 0x20072d1c, unit_end = 0x20072dd4), line 213
> in "hpfsc.c"
> semantic_check(), line 130 in "hpfsc.c"
> main(argc = 2, argv = 0x2ff7fc9c, envp = 0x2ff7fca4), line 106 in "hpfsc.c"
> 
> (dbx) print *symb
> 
> (variant = -1, id = -1, ident = (invalid char ptr (0xffffffff)), parent =
> 0xffffffff, outer = 0xffffffff, next_symb = 0xffffffff, id_list = 0xffffffff,
> thread = 0xffffffff, type = 0xffffffff, scope = 0xffffffff, ud_chain =
> 0xffffffff, attr = -1, dovar = -1, decl = -1, entry = [union])
> 

	I think it's ok now . By the way , for some reason , my co_worker
add a name to every  empty name block data ,
for example 

+++
BLOCK DATA

END
++++

the bfnd of block_data , now have a symbol named _NONE_NAME ,
so the unparse result is :
+++
block data _NONE_NAME

end
+++
A little difference .

***************************************************************************
*     Zheng Gengbin                 *                                     *
*                                   *                                     *
*  Dept. of Computer Science        *  Phone:  86-10-2585088              *
*         & Technology              *  Email:                             *
*                                   *      [email-masked]   *
*  Peking University P.R.China      *  Mail:                              *
*                                   *      Room 1077 ,Building 47,        *
*                                   *      Peking University, P.R.China   *
***************************************************************************