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