Помогите поправить код c ошибкой: Error: Return type mismatch of function ‘test’ at (1) (UNKNOWN/REAL(4))

Всем доброго, возникла вот такая ошибка при компиляции на Fortran. Сижу с ней уже не первый день, перепробовал все что можно. Чат gpt не справляется ( дает измененный код, который выдает ту же самую ошибку в той же строке ). Может кто-то поможет из умных ребят?))
https://onlinegdb.com/HLtlbtPfu Это ссылка на код. Буду очень благодарен за любую помощь.