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

main module glabel

    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
    endfunction

    I [1] := test ("1")

    guard
    	catch
	    Default:
	    	reraise
    endguard
endmodule