1 NEW_TEST

    This is a sample program doing nothing, but used to test GILDAS...
2 A$
        NEW_TEST:  A$

    A real value between 0 and 1.
2 CHAIN$
        NEW_TEST:  CHAIN$

    A text to be sent to somebody.
2 ARRAY$
        NEW_TEST:  ARRAY$[4]

    A real array of dimension 4.  Enter all values, even though they are not
    used.
1 END