This is an archive of the discontinued LLVM Phabricator instance.

	Show All 24 Lines
	#include "flang/Runtime/descriptor.h"			#include "flang/Runtime/descriptor.h"

	namespace Fortran::runtime::io::descr {			namespace Fortran::runtime::io::descr {
	template <typename A>			template <typename A>
	inline A &ExtractElement(IoStatementState &io, const Descriptor &descriptor,			inline A &ExtractElement(IoStatementState &io, const Descriptor &descriptor,
	const SubscriptValue subscripts[]) {			const SubscriptValue subscripts[]) {
	A *p{descriptor.Element<A>(subscripts)};			A *p{descriptor.Element<A>(subscripts)};
	if (!p) {			if (!p) {
	io.GetIoErrorHandler().Crash(			io.GetIoErrorHandler().Crash("Bad address for I/O item -- null base "
	"ExtractElement: null base address or subscripts out of range");			"address or subscripts out of range");
	}			}
	return *p;			return *p;
	}			}

	// Per-category descriptor-based I/O templates			// Per-category descriptor-based I/O templates

	// TODO (perhaps as a nontrivial but small starter project): implement			// TODO (perhaps as a nontrivial but small starter project): implement
	// automatic repetition counts, like "10*3.14159", for list-directed and			// automatic repetition counts, like "10*3.14159", for list-directed and
	▲ Show 20 Lines • Show All 478 Lines • Show Last 20 Lines

[flang][NFC] Change wording of an I/O runtime error messageClosedPublic