integer i, a(1) logical(kind=8) s(1) s = .true. a = 42 forall (i=1:1, .not. s(1)) a(i) = 0 end
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机