// ****************************************************************
//
//  Praxis Test Suite     P009FLEX 
//
//	Author:  J R Greenwood	  Creation_Date:   8-OCT-1981
//
//    Multiple flexy parameters
//
//    Revisions:
//	  1.000   8-OCT-1981  JRG	Initial Key-in.
//
// ****************************************************************
//
  Main module P009FLEX 
//
use textio
Guard 
 declare
   count : static cardinal initially 0 // index counter
    str is structure
       r : real
       z : real
       m : array[1..2] of char
     endstructure
    arr is array[1..?len] of str
    x,y,z : array[1..10] of str
   x1,x2,x3 : array[1..20] of str
 enddeclare
procedure zap( a,b,c : ref arr)
   count *= + sizeof( B )
   out_integer( tty, integer(sizeof(B))); out_record(tty)
   out_record (TTY)
endprocedure
zap(x,y,z)
zap(x1,x2,x3)
 if count = 2400 do 
   out_line (TTY, " PASS....P009FLEX ")
 otherwise 
   out_line (TTY, " FAIL....P009FLEX ")
 endif 
catch 
  default: out_line (TTY, " FAIL....P009FLEX ..default exception caught")
endguard 
endmodule { P009FLEX }