From d1f3a7336bb08046373cd2bac92182b8a853ff35 Mon Sep 17 00:00:00 2001
From: Paul Wessel <pwessel@hawaii.edu>
Date: Wed, 27 Dec 2023 20:09:42 +0100
Subject: [PATCH] Update gmt_gdalwrite.c

---
 src/gmt_gdalwrite.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/gmt_gdalwrite.c b/src/gmt_gdalwrite.c
index 92cd1b61257..de11a595e34 100644
--- a/src/gmt_gdalwrite.c
+++ b/src/gmt_gdalwrite.c
@@ -93,8 +93,12 @@ int gmt_export_image (struct GMT_CTRL *GMT, char *fname, struct GMT_IMAGE *I) {
 		to_GDALW->ULx = I->header->wesn[XLO];
 		to_GDALW->ULy = I->header->wesn[YHI];
 	}
-	else {
-		to_GDALW->ULx = 1;
+	else if (I->header->wesn[XHI] > I->header->wesn[XLO] && I->header->wesn[YHI] > I->header->wesn[YLO]) {	/* Header has valid -R */
+		to_GDALW->ULx = I->header->wesn[XLO];
+		to_GDALW->ULy = I->header->wesn[YHI];
+	}
+	else {	/* Stuck with dimensions */
+		to_GDALW->ULx = 0;
 		to_GDALW->ULy = I->header->n_rows;
 	}