125603Skjc! Function returning an array continaed in a module.  Caused problems 'cos
225603Skjc! we tried to add the dummy return vars to the parent scope.
325603Skjc
425603SkjcModule contained_5
525603Skjccontains
625603SkjcFUNCTION test ()
725603Skjc  REAL, DIMENSION (1) :: test
825603Skjc  test(1)=0.0
925603SkjcEND FUNCTION
1025603Skjcend module
1125603Skjc