linux下编程用 编译软件

源代码在线查看: nullarg.f90

软件大小: 49607 K
上传用户: IsABC
关键词: linux 编程 编译 软件
下载地址: 免注册下载 普通下载 VIP

相关代码

				! This is the testcase from PR 12841. We used to report a type/rank mismatch				! when passing NULL() as an argument to a function.				   MODULE T				   PUBLIC :: A				   CONTAINS				   SUBROUTINE A(B)				   REAL, POINTER :: B				   IF (ASSOCIATED(B)) CALL ABORT()				   END SUBROUTINE A				   END MODULE T				   USE T				   CALL A(NULL())				   END							

相关资源