用于进行gcc测试

源代码在线查看: forall-1.f90

软件大小: 6330 K
上传用户: yhw002
关键词: gcc 测试
下载地址: 免注册下载 普通下载 VIP

相关代码

				  integer i, a(1)				  logical(kind=8) s(1)								  s = .true.				  a = 42				  forall (i=1:1, .not. s(1)) a(i) = 0				  end							

相关资源