Ich benutze allerdings noch die Version 3.93. Es kann also sein, dass es in der jetztigen Beta schon behoben ist, aber ich wollte es eben nochmal sagen.

Code: Alles auswählen
Procedure.f TestProc1(a.l)
Protected res.f
Select a
Case 0
res = 1.5
ProcedureReturn res
Case 1
res = 1.8
ProcedureReturn res
EndSelect
ProcedureReturn 0
EndProcedure
Procedure.f TestProc2(a.l)
Protected res.f
res = 0
Select a
Case 0
res = 1.5
Case 1
res = 1.8
EndSelect
ProcedureReturn res
EndProcedure
Debug TestProc2(0)
Debug TestProc1(0)