gcc/gcc/testsuite/gfortran.dg/pr32601_1.f03 - native_client/nacl-toolchain - Git at Google

 ! { dg-do compile }
 ! PR fortran/32601
 use, intrinsic :: iso_c_binding, only: c_loc, c_ptr
 implicit none

 ! This was causing an ICE, but is an error because the argument to C_LOC
 ! needs to be a variable.
 print *, c_loc(4) ! { dg-error "not a variable" }

 end
	! { dg-do compile }
	! PR fortran/32601
	use, intrinsic :: iso_c_binding, only: c_loc, c_ptr
	implicit none

	! This was causing an ICE, but is an error because the argument to C_LOC
	! needs to be a variable.
	print *, c_loc(4) ! { dg-error "not a variable" }

	end