//-----------------------------------
// Test alignment of guard block data
//-----------------------------------

main module TESTGUARD

    use TEXTIO
    declare
    	blank_char is char initially $P
    	I : array [1..1] of blank_char
    enddeclare

    function test
    	param
	    A : ref packed array [1..?N] of blank_char
    	endparam
    	returns T : char
//	tty_line ("in test function")
    endfunction

//    tty_line ("starting main module")
    I [1] := test ("1")
    exception joe
    tty_line ("enterin guard block definition")
    guard
//	tty_line ("going to catch of guard")
	raise joe
    	catch
	    case joe:
//		tty_line ("caught guard case")
    endguard
endmodule