/************************************************************/
/*                       followct                           */
/************************************************************/

/* :SUMMARY: query that uses follow into a constructed type: follow A#B
:PRIORITY: 1
:STATUS: ok
:FEATURE: 
using the query language to follow a pointer in a constructed type
:HISTORY: 
:MODEL: 
:DATA: 
F1 f1
A B f3a
C B f3b

F3 f3a
D "from object f3a"

F3 f3b
D "from object f3b"

N nn1
M mm1 cc1
M mm2 cc2
M mm2 cc3

:RESULT: 
PROBLEM
fcfind: should return object f3a.
	works in 4.3i, 4_5, 4_7h
fcerr: gives error in 4_5, 4_7h

:SCRIPT: */
followct: dbinit wspec.mini
  tace
   parse: do parse $data/mini.follow.ace
   fcaberr: do Query FIND F1 ; Query follow A#B // error
   fcab: do Query FIND F1 ; follow A#B
	    show
	    list
   fcnmerr: do Query FIND N nn1 ;  follow M = mm1 // error
   fcnm: do Query FIND N nn1 ;  follow M
	      show                              // empty
	      list                              // gives mm1, mm2
  exit